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SOFTWARE  DESIGN  DOCUMENT  FOR 
THE  POLAR  ICE  PREDICTION  SYSTEM  VERSION  2.0 


1.0  INTRODUCTION 
1.1  Scope 

This  Software  Design  Document  (SDD)  describes  the  Computer  Software  Configuration 
Item  (CSCI)  identified  as  the  Polar  Ice  Prediction  System  2.0  (PIPS2.0).  This  SDD  has  been 
prepared  in  accordance  with  guidelines  set  forth  by  the  Fleet  Numerical  Meteorology  and  Ocean¬ 
ography  Center  (FNMOC).  These  guidelines  are  based  on  the  Data  Item  Description  (DID) 
DI-MCCR-800 1 2A  of  DOD-STD-2167A. 


1.2  System  Overview 

PIPS2.0  was  developed  as  an  ice-ocean  coupled  model  to  provide  daily  forecasts  of  ice-drift 
velocity,  ice  thickness,  and  ice  concentration  for  most  ice-covered  regions  in  the  Northern  Hemisphere. 
(This  includes  the  area  from  the  North  Pole  south  to  approximately  30°  N.) 

Two  independent  models  were  merged  to  form  PIPS2.0:  the  Hibler  Viscous-Plastic  Sea  Ice 
Model,  which  provides  the  ice  prediction  output,  and  the  Cox  Ocean  Model,  which  provides  the 
ocean  forcing  required  as  input  for  the  Hibler  ice  model.  To  accomplish  the  merger,  the  models 
were  first  independently  adapted  to  the  required  prediction  basin  and  then  joined  by  a  common 
driver  routine.  Information  between  the  coupled  models  is  exchanged  via  common  blocks. 

In  this  configuration,  the  ocean  model  provides  daily  predictions  of  mixed-layer  temperatures, 
variable  freezing  temperatures,  oceanic  heat  fluxes,  and  ocean  currents  to  the  ice  model,  while  the 
ice  model  supplies  the  ocean  model  with  ice  concentration,  ice  growth  rate,  ice  thickness,  ice 
thickness  growth  rate,  ice  surface  temperature,  ice-drift  velocity,  and  heat  above  the  freezing 
temperature. 

The  basis  of  the  ice  model  is  the  Hibler  dynamic/thermodynamic  ice  model  (Hibler  1979;  1980) 
that  was  modified  for  operation  in  the  polar  regions  (Preller  and  Posey  1989)  and  updated  for 
spherical  coordinates  (Cheng  and  Preller  1992).  The  ocean  model  is  the  Cox  primitive  equation, 
numerical  model  (Cox  1984)  that  predicts  horizontal  and  vertical  velocities,  temperature,  and  salinity 
for  a  three-dimensional  ocean  basin.  Daily  Naval  Operational  Global  Atmospheric  Prediction  System 
(NOGAPS)  data  supplies  the  atmospheric  data  for  forcing. 

The  PIPS2.0  ice-ocean  coupled  system  is  presently  in  research  and  development  at  the  Naval 
Research  Laboratory  (NRL),  Stennis  Space  Center,  MS,  and  is  being  implemented  at  FNMOC.  The 
model  is  designed  to  run  on  a  UNIX  host  platform.  For  greater  applicability,  host  system  specifics 
are  kept  to  a  minimum  in  this  document. 
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1.3  Overview 

This  SDD  provides  a  complete  description  of  the  design  of  CSCI  PIPS2.0.  It  describes  PIPS2.0 
as  composed  of  Computer  Software  Components  (CSC)  and  Computer  Software  Units  (CSU)  and 
details  the  allocation  of  requirements  from  PIPS2.0  to  its  CSCs  and  CSUs.  The  overview  of  the  design 
requirements  of  each  PIPS2.0  CSC  is  contained  in  Sec.  2.0.  Section  3.0  contains  the  detailed 
design  information  for  each  CSC  and  CSU.  Global  data  elements  are  listed  and  described  in  Sec.  4.0, 
and  Sec.  5.0  provides  a  data  file  to  CSU  cross  reference.  Abbreviations  and  acronyms  used  in  this 
document  are  listed  in  Sec.  6.0. 


2.0  GENERAL  DESIGN 
2.1  CSCI  Overview 

The  PIPS2.0,  is  based  on  the  Hibler  sea  ice  model  coupled  with  the  Cox  ocean  model.  PIPS2.0 
takes  the  place  of  all  operational  versions  of  the  ice  model  at  FNMOC. 

The  Hibler  ice  model  (1979;  1980)  was  originally  developed  as  a  stand-alone  program  to 
predict  ice-drift  velocity,  ice  thickness,  and  ice  concentration  on  a  daily  basis.  The  Cox  ocean 
model  (1984)  is  coupled  with  the  ice  model  to  provide  the  ocean  currents,  temperature,  and  salinity 
values.  The  ocean  model  provides  oceanic  forcing,  including  ocean  currents,  temperature,  salinity,  and 
oceanic  heat  fluxes  to  the  ice  model.  The  ice  model  provides  the  ocean  model  with  predictions  of 
ice  conditions  including  ice  concentration,  ice  growth  rate,  ice  thickness,  ice  thickness  growth 
rate,  ice  surface  temperature,  ice-drift  velocity,  and  heat  above  the  freezing  temperature.  The  two 
models  exchange  information  via  common  blocks.  Ice  and  ocean  restart  data  are  updated  on  a  daily 
basis — output  one  day,  input  the  next. 

All  the  external  interfaces  to  PIPS2.0  are  shown  in  Fig.  2.1-1.  The  first  three  interfaces  in  the 
second  row  of  input  are  all  output  from  the  previous  day’s  run.  Run-specific  parameters  are  usei 
input.  Additional  model  disk  file  interfaces  include  subsets  of  the  Levitus  climatology  data  base, 
river  discharge  rates,  and  the  NOGAPS  data.  Levitus  climatology  and  river  discharge  rates  varj 
monthly,  while  NOGAPS  data  vary  daily.  Land/sea  masks  and  Earth-oriented  latitudes  and  longitudes 
that  correspond  to  the  ocean  basin  grid  cells  (Sec.  2.2)  are  also  input. 

The  following  list  is  a  summary  of  the  external  interfaces: 

Ice  Restart  File 

Previous  Run  -  The  ice  conditions  including  ice  drift,  ice  thickness,  ice  (or  water)  temperature 
and  ice  coverage  are  read  in  as  restart  data. 

Current  Run  —  The  ice  conditions  including  ice  drift,  ice  thickness,  ice  (or  water)  temperature 
and  ice  coverage  are  output.  This  file  becomes  the  restart  file  for  the  next  PIPS2.0  run. 

Ocean  Restart  File 

Previous  Run  -  The  ocean  conditions  including  currents,  temperature,  and  salinity  for  the  las 
two  timesteps  computed  during  the  previous  model  run  are  read  in  as  restart  data. 

Current  Run  -  The  ocean  conditions  of  currents,  temperature,  and  salinity  computed  for  th 
last  two  timesteps  during  the  current  run  are  output.  This  file  becomes  the  restart  file  for  the  nex 
PIPS2.0  run. 
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Fig.  2.1-1  — CSCI  overview 


Ocean  Data  -  Ocean  currents  and  ice  growth  rate  data  (including  current,  temperature,  salinity, 
and  ice  growth  rate)  are  used  to  initialize  the  timestepping. 

Data  File  for  Plotting  -  Fields  of  wind,  ice  thickness,  ice  drift,  and  ice  concentration  are 
output  to  an  ASCII  file  for  subsequent  plotting. 

Land/Sea  Masking  -  The  land/sea  masks  for  thermodynamic  fields,  velocity  files,  and  outflow 
grid  cells  are  defined. 

Latitude/Longitude  in  Earth-Oriented  Spherical  Coordinates  -  Grid  positions  provide 
Earth-oriented  latitudes  of  U,V  points  needed  for  computing  Coriolis  force. 

Monthly  Levitus  Temperature  -  Levitus  ocean  temperature  data  are  interpolated  to  PIPS2.0  grid. 

Monthly  Levitus  Salinity  -  Levitus  ocean  salinity  data  are  interpolated  to  PIPS2.0  grid. 

Monthly  River  Temperature  Data  -  Monthly  river  discharge  rates  and  temperatures  are  provided 
for  88  grid  locations. 

NOGAPS  Atmospheric  Forcing  -  NOGAPS  daily  atmospheric  data  include  air  temperature, 
surface  forcing,  surface  vapor  pressure,  incoming  solar  radiation,  total  heat  flux,  and  sensible  heat 
flux  to  calculate  geostrophic  winds  for  forcing. 

Run  Specific  Parameters  -  The  number  of  timesteps  for  run,  the  interval  at  which  to  plot,  the 
interval  at  which  to  print,  the  restart  indicator,  and  the  run  date-time  group  are  user  input. 

2.1.1  CSCI  Architecture 

The  top-level  architecture  of  PIPS2.0  is  illustrated  in  Fig.  2.1-2.  Each  block  of  the  figure 
represents  a  CSC  described  in  Sec.  2.2. 
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Fig.  2.1-2  —  CSCI  top-level  architecture 
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Table  2.1-1  — CSCI  Memory  Requirements 


Common  Block 

Number  of  Bytes 

Common  Block 

Number  of  Bytes 

BG 

67,910,480 

PRESS 

518,400 

CORSP 

521,284 

OCEANS 

518,400 

COX2 

4,152,960 

ONEDIM 

568,156 

CURNTS 

1,555,200 

RAD 

521,284 

DIFFU3 

1,440 

RFOR 

2,606,420 

FIELDS 

2,073,600 

RFOR2 

2,073,616 

FORCE 

1,031,048 

RSTRT 

7,752,992 

FULLWD 

34,996 

RVR 

1,412 

GROW 

518,400 

STEPSP 

2,884 

LEV ITUS 

15,638,520 

TSTOP 

16,594,568 

MASK 

1,552,324 

WORKSP  (R) 

4,148,640 

Total 

130,298,436 

2.1.2  System  States  and  Modes 

The  ice  model  CSCI  operates  in  only  one  state  and  in  one  mode:  restart.  In  the  restart  mode, 
the  inputs  of  ice  drift,  thickness,  compactness,  lateral  heat,  and  ice  temperature  are  read  from  the 
most  recent  model  forecast,  or  from  climatology,  if  the  forecast  restart  is  not  available. 

Provisions  are  made  to  allow  for  the  future  vectorization  of  parts  of  several  CSCs  including 
CSC  Compute  Internal  Mode  and  Vorticity  Driving  Function,  CSC  Compute  Tracers,  and  CSC 
Compute  External  Mode. 

2.1.3  Memory  and  Processing  Time 

Most  of  the  CSCI  internal  data  is  located  in  common  blocks  with  only  a  relatively  small 
amount  of  data  designated  as  local  to  any  particular  CSC.  For  this  reason,  the  memory  requirements 
of  each  CSC  are  not  addressed  individually.  The  CSCI  PIPS2.0  memory  requirements  are  given  in 
Table  2.1-1.  The  amount  of  local  data  contained  in  any  of  the  CSCs  is  negligible  in  comparison  to 
the  total  data  stored  in  common  areas.  As  an  estimate,  it  is  sufficient  to  say  that  the  largest  amount 
of  memory  capacity  required  for  any  CSC  is  about  2  Mb  greater  than  the  130.3-Mb  total  given  at 
the  bottom  of  the  table. 

Because  the  external  modes  are  computed  after  the  row-by-row  computations  are  performed  by 
CSC  Compute  Internal  Mode  and  Vorticity  Driving  Function,  the  common  block  WORKSP  is 
redefined  in  CSC  Compute  External  Mode.  Therefore,  the  memory  requirement  given  for  common 
block  WORKSP  is  the  maximum  of  its  two  versions,  which  in  this  case  is  the  WORKSP  defined 
in  CSC  Compute  External  Mode.  The  common  block  WORKSP  defined  in  CSC  Compute  External 
Mode  is  referred  to  as  WORKSP  (R)  to  distinguish  it  from  the  WORKSP  common  block  used  by 
the  other  CSCs.  CSCs  containing  fewer  than  100  bytes  are  not  shown. 
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It  is  important  to  note  that  the  memory  requirements  given  here  are  for  PIPS2.0  as  it  is 
currently  configured  as  a  coupling  of  the  ocean  and  ice  models.  These  memory  requirements  change 
significantly  based  on  two  factors: 

1.  If  the  program  is  not  to  be  run  in  a  core-contained  mode,  common  block  BG  can  be  taken  out 
of  CSC  Direct  Access  Manager,  reducing  the  memory  requirements  by  approximately  68  Mb. 
When  the  program  is  not  run  in  a  core-contained  mode,  data  that  would  normally  be  resident 
in  common  block  BG  are  output  to  disk  files.  The  cost,  however,  is  a  substantial  increase  in 
execution  time. 

2.  The  majority  of  arrays  are  dimensioned  according  to  parameters  that  define  the  number  of  grid 

cells  contained  in  the  defined  model  basin.  Table  2-1.1  shows  the  amount  of  memory  required 
to  process  the  defined  model  basin.  This  model  basin  is  comprised  of  360  grid  cells  meridionally 
by  360  grid  cells  zonally  by  15  grid  cells  vertically  (or  1,944,000  grid  cells).  Because  a 
multitude  of  data  elements  are  associated  with  each  grid  cell,  the  amount  of  required  memory 
varies  significantly  with  the  number  of  grid  cells  in  the  model  basin.  i 


2.2  CSCI  Design  Description  i 

I 

PIPS2.0  provides  predictions  for  a  model  basin  that  extends  from  30°  N  to  the  North  Pole.  The 
basin  is  divided  into  359  x  359  grid  cells  based  on  a  spherical  coordinate  system.  Each  grid  cell  has 
an  arc  length  of  0.57°.  To  remove  computational  instabilities,  the  Earth-oriented  coordinates  are 
transformed  into  a  new  geometry..  This  is  accomplished  by  first  rotating  the  Earth’s  longitudes  so 
that  the  Prime  Meridian  is  located  at  190°  E.  Then  the  North  Pole  is  rotated  90°  down  the  100°  E 
meridian  until  it  resides  on  the  true  equator.  In  this  transformed  system,  the  coordinates  have  the 
170°  W  to  10°  E  great  circle,  which  passes  through  the  North  Pole  as  the  “new”  (repositioned)  equator. 

2.2.1  CSC  Program  Driver 

This  CSC  serves  as  the  main  driving  routine  for  PIPS2.0.  It  must  establish  the  proper  data  in 
memory  needed  to  restart  the  model  each  day,  drive  the  ice  and  ocean  CSCs,  and  save  the  data 
needed  for  the  next  model  restart. 

2.2.2  CSC  Input 

CSC  Input  is  used  for  reading  and/or  calculating  inputs  necessary  for  the  operation  of  PIPS2.0. 
It  reads  in  and  converts  the  date-time  group  to  its  components,  reads  in  boundary  mask  data,  anc 
reads  in  the  ice  and  ocean  model  restart  data  files  from  the  previous  PIPS2.0  run. 

2.2.3  CSC  Compute  Ice 

CSC  Compute  Ice  must  provide  all  daily  ice  data  predictions  required  by  FNMOC  and  mus 
provide  data  required  by  CSC  Compute  Ocean.  CSC  Compute  Ice  must  contain  the  capability  tc 
compute  the  following  elements: 

•  ice-drift  velocity 

•  ice  thickness 

•  ice  thickness  growth  rate 

•  ice  concentration 

•  heat  above  the  freezing  temperature 

•  oceanic  heat  fluxes 

•  geostrophic  winds 
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2.2.3.1  CSC  Atmospheric  Forcing 

CSC  Atmospheric  Forcing  reads  the  atmospheric  forcing  fields  that  are  derived  from  the  1992 
results  of  NOGAPS.  Geostrophic  winds  are  calculated  from  the  input  fields. 

2.2.3.2  CSC  Momentum  Balance 

The  Momentum  Balance  CSC  calculates  the  terms  needed  to  solve  the  momentum  equation.  It 
estimates  the  x  and  y  components  of  forcing  due  to  the  ocean  currents  plus  the  ice  pressure 
gradient,  which  are  then  used  to  solve  the  momentum  equation  through  the  relaxation  method. 

2.2.3.3  CSC  Ice  Rheology 

The  Ice  Rheology  CSC  calculates  the  ice  stress  that  is  directly  related  to  the  ice  strength  and 
strain  rates.  It  calculates  strain  rates,  divergence,  and  viscosities  based  on  plastic  flow  specified  by 
an  elliptic  yield  curve. 

2.2.3.4  CSC  Ice  Thickness  Distribution 

The  Ice  Thickness  Distribution  CSC  accounts  for  the  changes  in  ice  thickness  and  concentration 
due  to  growth,  advection,  and  deformation  of  the  ice.  Only  thick  and  thin  ice  are  considered  for 
these  calculations.  The  deformation  of  thick  ice  can  create  thin  ice  by  divergence,  while  the  thin 
ice  can  be  removed  by  convergence.  Both  growth  and  melt  affect  the  amount  of  thick  and  thin  ice. 
While  growth  can  significantly  decrease  the  amount  of  thin  ice  and  increase  the  amount  of  thick 
ice,  melting  can  add  to  the  amount  of  thin  ice  or  create  open  water  by  decreasing  the  thick  ice. 
The  advection  of  the  ice  thickness  and  compactness  due  to  explicit  timestepping  is  performed.  The 
diffusion  of  the  ice  thickness,  compactness,  and  concentration  is  determined  by  using  explicit 
forward  time  differencing.  The  negative  ice  to  be  melted  is  calculated,  and  the  changes  of  thickness 
and  compactness  for  each  timestep  are  then  estimated. 

2.2.3.5  CSC  Ice  Strength 

The  ice  strength,  as  a  function  of  ice  thickness  distribution,  is  calculated  in  CSC  Ice  Strength. 
The  strength  of  the  ice  depends  on  the  amount  of  thin  ice  and  is  calculated  in  the  FORM  CSU. 

2.2. 3.6  CSC  Heat  Balance 

The  Heat  Balance  CSC  takes  the  FNMOC  forcing  and  calculates  the  terms  needed  for  the  heat 
budget  and  uses  these  terms  to  compute  the  growth  rates  of  thick  and  thin  ice.  It  also  computes  the 
surface  temperature  of  ice  by  iteration.  This  temperature  balances  the  surface  heat  budget  and 
dictates  the  conduction  of  heat  through  the  ice  and,  therefore,  the  growth  rates. 


2.2.4  CSC  Compute  Ocean 

CSC  Compute  Ocean  must  provide  the  oceanic  forcing  required  for  CSC  Compute  Ice.  This 
includes  daily  predictions  of  mixed-layer  temperatures,  variable  freezing  temperatures,  oceanic  heat 
fluxes,  and  ocean  currents.  The  CSC  Compute  Ocean  must  be  configurable  so  that  predictions  can 
be  provided  for  a  model  basin  that  is  compatible  with  any  basin  processed  by  CSC  Compute  Ice. 
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2. 2.4.1  CSC  Ocean  Timestep 

CSC  Ocean  Timestep  must  initialize  all  quantities  needed  to  begin  processing  for  each  timestep 
and  must  control  the  row-by-row  computation  of  prognostic  variables  for  each  timestep.  Data  for 
each  timestep  is  processed  in  rows,  with  a  row  being  a  three-dimensional  vertical  slice  or  “slab” 
of  the  ocean  basin  comprised  of  i,  j,  k  grid  cells  of  constant  index  j  with  index  i  varying  from 
western  to  eastern  basin  boundaries  and  with  index  k  varying  from  the  ocean  surface  to  the  bottom. 
(See  Fig.  2.2-1  for  the  layout  of  the  horizontal  and  vertical  grid  spacing  and  indexing.) 

Quantities  initialized  by  CSC  Ocean  Timestep  before  row-by-row  computations  can  begin  are 
those  needed  for  analysis  of  the  calculation  including,  for  example,  change  of  variance  of  tracers, 
rates  of  change  of  kinetic  energy,  and  mass  transport  of  tracers.  For  each  row  processed,  CSC 
Ocean  Timestep  establishes  the  proper  data  in  memory  before  passing  control  to  CSC  Compute 
Internal  Mode  and  Vorticity  Driving  Function  and  CSC  Compute  Tracers. 

2.2.4.1.1  CSC  Compute  Wind/Ice  Stress -CSC  Compute  Wind/Ice  Stress  must  compute  daily 
wind  stress  at  the  sea  ice  surface  and  the  stress  between  the  sea  ice  and  the  mixed  layer.  This  j 
computation  is  required  at  the  beginning  of  each  timestep  processed. 

2. 2.4. 1.2  CSC  Load  Normalization  Constants  -  CSC  Load  Normalization  Constants  loads  constants 
and  coefficients  for  use  in  CSC  Compute  Densities.  Arrays  must  be  filled  with  coefficients  of  the 
equation  of  state,  and  normalizing  temperatures  and  salinities. 

2.2.4. 1 .3  CSC  Compute  Densities  -  CSC  Compute  Densities  must  provide  the  normalized  densities 
for  all  grid  cells  in  the  bootstrap  row  processed  by  CSC  Ocean  Timestep  and  for  all  rows  processed 
by  CSC  Compute  Tracers  and  CSC  Compute  Internal  Mode  and  Vorticity  Driving  Function.  The 
grid  cell  densities  are  required  for  purposes  of  checking  vertical  stability. 

2.2.4. 1.4  CSC  Print  Matrix -CSC  Print  Matrix  will  print  two-dimensional  arrays  as  required 
by  CSC  Ocean  Timestep.  It  must  accept  variable  size  arrays  and  must  print  contiguous  array 
elements  as  specified  by  CSC  Ocean  Timestep. 

2.2.4.2  CSC  Compute  Internal  Mode  and  Vorticity  Driving  Function 

For  each  row  processed  by  CSC  Ocean  Timestep,  CSC  Compute  Internal  Mode  and  Vorticity 
Driving  Function  computes  the  internal  mode  components  of  the  U  and  V  velocities  and  the  vor¬ 
ticity  driving  function  for  use  in  computing  the  external  mode  velocity.  The  terms  U  and  V  represent; 
the  zonal  and  meridional  components,  respectively,  of  velocity.  In  the  horizontal  plane,  U  and  V 
are  situated  at  the  grid  cell  comers.  In  the  vertical  plane,  U  and  V  are  located  halfway  through  the 
vertical  dimension  of  the  grid  cell. 

CSC  Compute  Internal  Mode  and  Vorticity  Driving  Function  must  compute  the  factors  that 
contribute  to  the  internal  mode  component  of  velocity  including  total  advection  of  momentum, 
horizontal  and  vertical  diffusion  of  momentum,  Coriolis  force,  and  hydrostatic  pressure  compo¬ 
nents.  The  following  equations,  given  in  simplified  terms,  are  used  to  calculate  velocity  internal 
mode  components: 


(1) 


UAtau  =  UAtau-l  +  2*  DTUV  *  (UAM  +  UHD  +  UVD  +  UCF  +  UHP) 
VAtau  =  VAtau. i  +  2  *  DTUV  *  (VAM  +  VHD  +  VVD  +  VCF  +  VHP) 


(2) 
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Fig.  2.2-1  — (a)  Horizontal  and  (b)  vertical  grid  spacing  and  indexing 
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where 


UAtau,  UAtau~ i,  VAtau,  and  VAtau-\  represent  zonal  and  meridional  internal  mode  components  of 
horizontal  velocity  for  present  and  previous  timesteps, 

DTUV  is  the  length  in  seconds  of  the  timestep  on  U,V, 

UAM  and  VAM  are  zonal  and  meridional  components  of  total  advection  of  momentum, 

UHD  and  VHD  are  zonal  and  meridional  components  of  horizontal  diffusion  of  momentum, 

UVD  and  WD  are  zonal  and  meridional  components  of  vertical  diffusion  of  momentum, 

UCF  and  VCF  are  zonal  and  meridional  components  of  Coriolis  force,  and 

VHP  and  VHP  are  zonal  and  meridional  components  of  hydrostatic  pressure. 

2.2.4.3  CSC  Compute  Tracers 

CSC  Compute  Tracers  will  compute  ocean  model  tracer  elements,  including  temperature  and 
salinity,  for  each  row  processed  by  CSC  Ocean  Timestep.  Tracer  elements  represented  by  T  are 
located  at  the  horizontal  center  of  the  ocean  model  grid  cells  and  halfway  through  the  vertical 
dimension. 


CSC  Compute  Tracers  must  compute  components  of  the  tracer  equation  including  total  advection 
of  tracers,  horizontal  and  vertical  diffusion  of  tracers,  and  surface  boundary  conditions.  The  total 
advection  of  the  tracers  is  equal  to  the  sum  of  the  flux  through  the  west  face  of  the  T  box,  plus 
the  flux  through  the  top  of  the  T  box,  plus  the  zonal,  meridional,  and  vertical  flux  divergences. 


Implementation  of  the  following  equation  is  required  for  computing  water  temperature: 


-£  +  V*(uT)  =  KhV2hT+Kz 


dh 

dz1 


m(l-A)b(z)R0Q(T-Tf 

7  . 

^ mix 


i 

(3) 


where 


dT 

dt 

v  •  («  r  > 


khVht 


K - 


d2T 

dz2 


m 

(l -A) 

S(z) 


*0 

e(T-Tf) 


=  the  time  rate  of  change  of  temperature, 

=  heat  advected  into  the  T  box, 

=  horizontal  diffusion, 

=  vertical  diffusion, 

=  the  ice  growth/melting  rate  in  open  water, 

=  the  percentage  of  the  open  water  area, 

=  1  in  the  mixed  layer  and  0  otherwise, 

=  the  ratio  of  the  latent  heat  of  fusion  of  sea  ice  to  the  heat  capacity  of  water, 

=  1  when  the  mixed-layer  temperature  T  is  greater  than  the  freezing  point  7} 
and  0  otherwise. 
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Zmix  =  the  mixed-layer  thickness, 

Rt  =  the  robust  constraint  for  water  temperature,  and 

To  =  the  Levitus  climatology  temperature. 

Similarly,  implementation  of  the  following  equation  is  required  for  computing  salinity: 


(4) 


where 

=  the  time  rate  of  change  of  salinity, 

=  salinity  advected  into  the  T  box, 

=  horizontal  diffusion, 

=  vertical  diffusion, 

=  the  total  growth  rate  of  open  water  and  sea  ice, 

=  1  in  the  mixed  layer  and  0  otherwise, 

=  the  mixed-layer  thickness, 

=  the  robust  constraint  for  water  temperature,  and 
=  the  Levitus  climatological  salinity. 

2.2.4.4  CSC  Compute  External  Mode 

CSC  Compute  External  Mode  must  employ  sequential  overrelaxation  to  solve  the  LaPlacian 
equation  for  the  external  mode  of  velocity  in  terms  of  a  mass  transport  stream  function.  To  provide 
predictions  for  a  model  basin  with  islands,  CSC  Compute  External  Mode  must  utilize  the  method 
of  “hole  relaxation.”  The  vorticity  driving  function  computed  by  CSC  Compute  Internal  Mode  and 
Vorticity  Driving  Function  is  required  as  input  to  CSC  Compute  External  Mode. 

CSC  Compute  External  Mode  must  read  in  the  relaxation  solutions  from  the  previous  two 
timesteps  and  extrapolate  the  solutions  forward  in  time  for  use  as  an  initial  guess  for  the  relaxation 
solution  of  the  current  timestep.  This  minimizes  the  number  of  scans  required  for  convergence  to 
the  solution. 


dt 

V  »(uS ) 


khvhs 


K: 

Gh 

5(z) 

Zmix 

Rt 

So 


rs 

dz2 


2.2A.5  CSC  Direct  Access  Manager 

CSC  Direct  Access  Manager  is  included  in  ocean  to  perform  input/output  (I/O)  tasks  on  slab 
and  slab  incidental  data.  The  I/O  may  be  real,  when  data  is  actually  stored  on  disk,  or  simulated, 
when  all  data  is  resident  in  memory  (core-contained).  Either  way,  CSC  Direct  Access  Manager 
insulates  the  rest  of  the  model  from  any  dependence  on  the  type  of  I/O  system  actually  used.  When 
the  ocean  model  is  configured  to  run  in  a  core-contained  mode,  CSC  Direct  Access  Manager 
contains  routines  to  initialize  a  virtual  disk  from  tape,  transfer  data  to  memory  and  vice  versa,  and 
save  a  virtual  disk  to  tape. 
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The  I/O  system  must  satisfy  two  main  criteria.  First,  a  complete  record  of  all  prognostic 
variables  must  reside  on  permanent  disk  at  the  end  of  each  timestep.  This  allows  restarting  the 
model  for  continuous  daily  execution.  Secondly,  the  I/O  system  must  feed  data  to  and  from  memory 
in  a  row-by-row  manner.  Data  for  one  row  including  all  east-west  and  vertical  gridpoints  is  termed 
slab  data.  At  any  one  time,  only  the  slab  data  necessary  for  the  computation  should  be  present.  This 
includes  data  for  the  previous,  the  current,  and  the  next  timestep. 

Three  disk  units  are  needed  for  the  I/O  system:  one  for  the  N  timestep  data,  one  for  the 
N-  1  timestep  data,  and  one  for  the  newly  computed  N+  1  timestep  data.  Disk  units  are  permuted 
between  units  13,  14,  and  15  to  minimize  data  transfers.  Primary  slab  data  including  tracer  data  and 
U  and  V  velocities  are  managed  as  follows:  On  timestep  1,  A  -  1  and  N  data  will  be  read  from  units 
13  and  14,  and  the  N+  1  data  will  be  written  to  15.  On  timestep  2,  units  14  and  15  will  be  read 
and  the  N+  1  data  will  be  written  to  unit  13.  On  timestep  3,  15  and  13  will  be  read  and  the  N+  1 
data  will  go  to  14,  etc.  In  a  core-contained  mode,  the  file  I/O  described  above  is  simulated  by  CSC 
Direct  Access  Manager. 

CSC  Direct  Access  Manager  also  controls  the  I/O  for  the  slab  incidental  data,  such  as  the 
number  of  vertical  levels  of  the  ocean  at  T  and  U,V  points.  Because  these  variables  are  constant 
in  time,  there  is  no  need  to  keep  multiple  records  of  them.  Slab  incidental  data  are  managed  in  a 
manner  similar  to  the  primary  slab  data  with  some  considerations.  The  method  is  outlined  in 
Sec.  3.4.6.  CSC  Direct  Access  Manager  also  manages  the  storage  and  retrieval  of  the  two-dimensional 
horizontal  fields  and  the  timestep  counter,  total  elapsed  time,  and  the  area  and  volume  of  the  basin. 


2.2.5  CSC  Next  Timestep 

CSC  Next  Timestep  is  used  after  each  timestep  run  of  CSCs  Ice  and  Ocean  to  update  timestep 
information.  It  calculates  new  timestep  information  including  date-time  group,  new  currents,  and 
new  mixed-layer  temperatures  for  the  next  pass  through  the  ice  and  ocean  models.  Positions  of 
previous  and  present  fields  are  swapped. 


2.2.6  CSC  Output  j 

The  CSC  Output  is  the  last  CSC  executed  in  PIPS2.0.  It  is  responsible  for  writing  the  data  files 
containing  the  ice  model  and  ocean  model  restart  data.  These  restart  values  are  used  by  PIPS2.0  for 
the  next  model  run. 


3.0  DETAILED  DESIGN 

This  section  gives  design  information  for  each  PIPS2.0  CSC  described  in  Sec.  2.0.  Each  CSC 
is  divided  into  CSUs. 


3.1  CSC  Program  Driver 

CSC  Program  Driver  serves  as  the  main  driving  routine  for  PIPS2.0.  It  must  establish  the 
proper  data  in  memory  needed  to  restart  the  model  each  day,  drive  the  Ice  and  Ocean  CSCs,  and 
save  the  data  needed  for  the  next  model  run. 
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3.1.1  CSU  DRIVER 

CSU  DRIVER  serves  as  the  program  driver  for  CSCI  PIPS2.0. 

3.1. 1.1  CSU  DRIVER  Design  Specification/Constraints 
There  are  no  known  constraints. 

3.1.1.2  CSU  DRIVER  Design 
Input  Data  Elements: 

FCORSP  array  of  sine  of  latitude  positions  for  each  gridpoint 

IDTG  date-time  group  in  the  form  YYMMDDHH 

ITSTEP  number  of  timesteps  for  run 

PLTSTP  interval  in  timesteps  at  which  to  plot 

PRTSTP  interval  in  timesteps  at  which  to  print 

IRIVER  x  component  of  river  discharge 

JRIVER  y  component  of  river  discharge 

KRIVER  z  component  of  river  discharge 

RIVER  river  discharge  temperature 

SMIX  monthly  interpolated  Levitus  salinity  fields 

TMIX  monthly  interpolated  Levitus  temperature  fields 

Output  Data  Elements: 

GAIRX  x  component  of  geostrophic  wind 

GAIRY  y  component  of  geostrophic  wind 

HEFF  mean  ice  thickness  per  grid  cell 

UICE  x  component  of  ice  drift 

VICE  y  component  of  ice  drift 

AREA1  fraction  of  grid  cell  covered  with  ice 

/FCORSP/ 

FCORSP  array  of  sine  of  latitude  positions  for  each  gridpoint 

/FULLWD/ 

NNERGY 

NLAST  final  timestep  to  compute  for  the  current  run 

/LEVITUS/ 

SMIX  monthly  interpolated  Levitus  salinity  fields 

TMIX  monthly  interpolated  Levitus  temperature  fields 

/MASK/ 

HEFFM  land/sea  mask  for  thermodynamic  variables 

OUT  land/sea  mask  including  outflow  conditions  for  thermodynamic  variables 

UVM  land/sea  mask  for  velocity  variables 

/RFOR  2/ 

GW  ATX  x  component  of  the  ocean  current 

GWATY  y  component  of  the  ocean  current 
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/RSTRT/ 


AREA1 

fraction  of  grid  cell  covered  with  ice 

HEFF 

mean  ice  thickness  per  grid  cell 

TICE 

mixed-layer  temperature  if  open  water;  ice  temperature  if  ice 

cover 

UICEC 

intermediate  x  component  of  ice  drift 

VICEC 

intermediate  y  component  of  ice  drift 

UICE 

x  component  of  ice  drift 

VICE 

y  component  of  ice  drift 

/RVR/ 

IRIVER 

x  component  of  river  discharge 

JRIVER 

y  component  of  river  discharge 

KRIVER 

z  component  of  river  discharge 

RIVER 

river  discharge  temperature 

/TSTEP/ 

IDTG 

date-time  group  in  the  form  YYMMDDHH 

IRSTRT 

if  0,  restart  from  previous  run;  otherwise,  restart  from  constant  conditions 

ITSTEP 

number  of  timesteps  for  run 

MDY 

day  calculated  from  inputted  data 

MHR 

hour  calculated  from  inputted  data 

MM 

month  calculated  from  inputted  data 

MYR 

year  calculated  from  inputted  data 

PLTSTP 

interval  in  timesteps  at  which  to  write  output 

PRTSTP 

interval  in  timesteps  at  which  to  plot  output 

Parameters: 

stored  in  file  ice.par 

IMTM1 

IMT-1;  =  359 

JMTM1 

JMT-1;  =  359 

IMT 

total  number  of  T  grid  boxes  zonally;  =  360 

JMT 

total  number  of  T  grid  boxes  meridionally;  =  360 

IMTP1 

IMT+1;  =  361 

JMTP1 

JMT+1;  =  361 

NXM1 

IMT-2;  =  358 

NYM1 

JMT-2;  =  358 

MIDY 

80 

IRV 

80 

LSEG 

maximum  number  of  sets  of  start  and  end  indices;  =  10 

NISLE 

number  of  islands  in  model;  =  4 

NT 

number  of  tracer  type  variables  carried  in  the  model;  =  2 

KM 

total  number  of  vertical  levels;  =15 

Data  element  design  information  is  provided  in  Sec.  4.0 

Local  Data  Elements: 

I 

index  counter 

integer  i 

IJUL 

Julian  date 

integer 

ILA 

index  of  loop  over  rows/latitudes 

integer 

ILO 

index  of  loop  over  columns/longitude 

integer 

J 

index  counter 

integer 
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K 

index  counter 

integer 

MM1 

index  for  the  Julian  date  of  the  previous  month 

integer 

NRV 

index  counter 

integer 

RADIAN 

degrees  per  radian 

integer 

Logic  Flow: 

Upon  start  of  the  program,  several  inputs  are  read  from  standard  input.  These  inputs  include 
the  number  of  timesteps  for  the  run  (ITSTEP),  the  interval  in  timesteps  at  which  to  plot  the  output 
(PLTSTP),  the  interval  in  timesteps  at  which  to  print  the  output  (PRTSTP),  the  type  of  initialization 
(IRSTRT),  and  the  date-time  group  (IDTG).  The  DAYNUM  CSU  is  called  to  compute  the  year 
(MYR),  month  (MM),  day  (MDY),  and  hour  (MHR)  from  the  input  date-time  group.  From  the 
month,  day,  and  hour,  the  final  timestep  to  compute  for  the  current  run  is  calculated. 

The  BNDRY  CSU  is  called  to  read  the  velocity,  thermodynamic,  and  outflow  land/sea  boundary 
parameters  from  a  file.  The  latitude  positions  of  the  gridpoints  are  read  from  a  file  and  are  then 
converted  from  degrees  to  radians.  The  values  of  IRIVER,  JRIVER,  KRIVER,  and  RIVER  are  also 
read  from  a  file  for  every  IRV.  The  ice  and  ocean  restart  values  are  read  by  calling  the  RST_OCN 
and  RST_ICE  CSUs.  The  Levitus  temperature  and  salinity  fields  (TMIX  and  SMIX)  are  read  from 
input  files. 

After  all  input  data  are  read,  the  model  is  executed  by  running  the  CSC  Ice  and  CSC  Ocean 
portions  of  PIPS2.0  for  each  timestep.  For  each  timestep,  CSC  Next  Timestep  is  called  to  update 
the  new  timestep,  moving  previous  timestep  fields  back  one  timestep  and  moving  present  timestep 
fields  into  previous  timestep  fields. 

Once  all  timesteps  have  been  executed,  the  ice  and  ocean  model  restart  data  are  written  to  files 
by  calling  the  SAV_ICE  and  SAV_OCN  CSUs.  A  graphics  file  of  output  fields  is  also  written 
directly  from  CSU  DRIVER.  These  values  include  the  x  component  of  the  geostrophic  wind  (GAIRX), 
the  y  component  of  the  geostrophic  wind  (GAIRY),  the  mean  ice  thickness  per  grid  cell  (HEFF),  the 
x  component  of  the  ice  drift  (UICE),  y  component  of  the  ice  drift  (VICE),  and  the  fraction  of  grid 
cell  covered  with  ice  (AREA1). 

Local  Data  Files: 

The  CSU  Driver  reads  data  from  five  different  data  files.  The  file  connected  to  logical  unit  14 
is  named  newlatu.dat  and  is  a  permanent,  IEEE  binary  file  containing  the  latitude  positions  of 
gridpoints.  The  river  rate  discharge  data  is  in  the  file  named  river_xxx.dat  where  xxx  is  the  month; 
this  file  is  a  permanent,  ASCII  file  connected  to  logical  unit  19.  The  files  named  for018_tu_xx.dat 
and  for018_su_xx.dat,  where  xx  is  the  month  number,  are  connected  to  logical  units  10  and  11, 
respectively.  Both  files  are  permanent,  IEEE  binary  files.  The  “tu”  file  contains  the  interpolated 
Levitus  monthly  ocean  temperature  and  the  “su”  file  contains  the  interpolated  Levitus  monthly 
ocean  salinity  values.  The  final  file  contains  the  ice  model  results  and  is  named  92xxxx.dat  where 
xxxx  is  the  month  and  day.  This  file  is  also  a  permanent,  binary  file  and  is  connected  to  logical 
unit  31. 

3.2  CSC  Input 

CSC  Input  is  used  for  reading  and/or  calculating  inputs  necessary  for  operation  of  PIPS2.0. 
Four  CSUs  are  called  to  perform  the  functions  required  by  the  CSC  Input. 

DAYNUM  converts  date-time  group 
BNDRY  reads  the  boundary  data 


16 


Preller,  Posey,  and  Crout 


RST_ICE  reads  ice  model  restart  data  written  in  the  previous  run  of  the  model 

RST_OCN  reads  ocean  model  restart  data  written  in  the  previous  run  of  the  model 

3.2.1  CSU  DAYNUM 

The  DAYNUM  CSU  converts  the  date-time  group  in  the  form  YYMMDDHH  to  the  year, 
month,  day,  and  hour. 

3.2.1.1  CSU  DAYNUM  Design  Specification/Constraints 
There  are  no  known  constraints. 

3.2.1.2  CSU  DAYNUM  Design 
Input  Data  Elements: 

/TSTEP/ 

IDTG  date-time  group  in  the  form  YYMMDDHH 

Output  Data  Elements: 

/TSTEP/ 

MDY  day  from  the  date-time  group 

MHR  hour  from  the  date-time  group 

MM  month  from  the  date-time  group 

MYR  year  from  the  date-time  group  i 

Data  element  design  information  is  provided  in  Sec.  4.0 
Local  Data  Elements: 

IDTG1  temporary  variable  used  in  determining  the  day  integer 

IDTG2  temporary  variable  used  in  determining  the  hour  integer 

Algorithms: 

To  calculate  the  year  (MYR),  day  (MDY),  and  hour  (MHR),  use  the  following: 

MYR  =  IDTG/ 1000000 

MM  =  (IDTG  -  (MYR  *  1000000))/10000 

IDTG\  =  (/D7G/10000)  *  10000 

MDY  =  (IDTG  -  IDTGI)/100 

IDTG2  =  (IDTG/ 100)  *  100 

MHR  =  IDTG  -IDTG2 

where  IDTG  is  the  date-time  group  in  the  form  YYMMDDHH.  The  date-time  group  IDTG  is  input 
to  the  CSU  and  the  year,  day,  and  hour  are  output. 

Logic  Flow: 

The  DAYNUM  CSU  is  called  by  the  ICEMDL  CSU  after  it  reads  the  date-time  group  and  also 
after  it  increments  the  date-time  group  for  the  next  timestep.  The  year,  month,  day,  and  hour  are 
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calculated  from  the  date-time  group  and  the  values  are  returned  to  the  calling  CSU.  The  month  is 
then  used  in  determining  the  snowfall  rate. 

3.2.2  CSU  BNDRY 

CSU  BNDRY  reads  the  velocity,  thermodynamic,  and  outflow  land/sea  boundary  parameters 
from  a  file. 


3.2.2.1  CSU  BNDRY  Design  Specification/Constraints 

Land/sea  boundary  parameters  are  read  from  a  file  connected  to  logical  unit  15. 

3.2.2.2  CSU  BNDRY  Design 
Input  Data  Elements: 

UVM  land/sea  mask  for  velocity  variables 

OUT  land/sea  mask  including  outflow  conditions  for  thermodynamic  variables 

HEFFM  land/sea  mask  for  thermodynamic  variables 

Output  Data  Elements: 

/MASK/ 

UVM  land/sea  mask 

OUT  land/sea  mask 

HEFFM  land/sea  mask 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 

Logic  Flow: 

The  BNDRY  CSU  is  called  by  CSU  DRIVER  to  define  all  boundaries.  The  land/sea  masks  for 
the  maximum  number  of  velocity  fields,  thermodynamic  fields,  and  outflow  fields  are  read  from  a 
file  connected  to  logical  unit  15. 

The  land/sea  masks  for  the  thermodynamic,  velocity,  and  outflow  fields  are  returned  to  the 
CSU  DRIVER. 

Local  Data  Files: 

The  file  connected  to  logical  unit  15  is  named  mask_u.dat  and  is  a  permanent,  binary  file 
containing  the  land/sea  tables  that  define  the  PIPS2.0  model.  The  file  contains  the  land/sea  masks 
for  the  thermodynamic  fields,  velocity  fields,  and  outflow  grid  cells. 

3.2.3  CSU  RSTJCE 

The  RST_ICE  CSU  reads  the  ice  restart  data  written  from  the  previous  ice  model  run. 
3.2.3.1  CSU  RSTJCE  Design  Specification/Constraints 
Restart  values  are  read  from  a  file  connected  to  logical  unit  16. 


for  velocity  variables 

including  outflow  conditions  for  thermodynamic  variables 
for  thermodynamic  variables 
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3.2.3.2  CSU  RST_ICE  Design 

Input/Output  Data  Elements: 

AREA1  fraction  of  the  grid  cell  covered  by  ice 

HEFF  mean  ice  thickness  per  grid  cell 

TICE  mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice  cover 

UICE  x  component  of  the  ice  drift 

UICEC  intermediate  x  component  of  the  ice  drift 

VICE  y  component  of  the  ice  drift 

VICEC  intermediate  y  component  of  the  ice  drift 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 

Logic  Flow: 

The  x  and  y  components  of  the  ice  drift  (UICE  and  VICE),  intermediate  x  and  y  components 
of  the  ice  drift  (UICEC  and  VICEC),  mean  ice  thickness  (HEFF),  fraction  of  the  grid  cell  covered 
by  ice  (AREA1),  and  mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice  cover 
(TICE)  are  read  from  the  permanent  binary  restart  data  file.  All  parameters  are  returned  to  the 
calling  CSU. 

This  CSU  is  implemented  by  the  CSU  DRIVER. 

Local  Data  Files: 

The  restart  data  are  read  from  92<mmdd>.res  (unit  16),  where  <mmdd>  is  the  two-digit  month, 
and  two-digit  day  of  the  previous  day.  This  permanent,  binary  file  contains  the  unformatted  restart 
data  from  the  previous  day.  The  x  and  y  components  of  the  ice  drift,  the  intermediate  x  and  y 
components  of  the  ice  drift  used  in  semi-implicit  timestepping,  the  mean  ice  thickness  per  grid  cell, 
the  fraction  of  the  grid  cell  covered  by  thick  ice,  the  negative  ice  to  be  melted,  and  the  mixed-layer 
temperature  (in  the  case  of  open  water)  or  the  ice  temperature  (in  the  case  of  an  ice  cover)  are  used 
by  the  ocean  model  run  for  the  current  day  and  the  ice  model  run  for  the  next  day. 

3.2.4  CSU  RST_OCN 

The  RST_OCN  CSU  reads  the  ocean  model  restart  data  written  from  the  previous  PIPS2.0 
model  run. 

3.2.4.1  CSU  RST_OCN  Design  Specification/Constraints 
Restart  values  are  read  from  a  file  connected  to  logical  unit  13. 

3 .2.4.2  CSU  RST_OCN  Design 
Input  Data  Elements: 

FW1  heat  above  the  freezing  temperature 

GICE  ice  growth  rate  computed  by  the  ice  model 

TM1  previous  timestep  mixed-layer  temperature 

TM2  previous  two  timesteps  mixed-layer  temperature 
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TMP  array  containing  previous  timestep  temperature  and  salinity  values 

UTEMP  previous  timestep  x  component  of  ocean  current 

VTEMP  previous  timestep  y  component  of  ocean  current 


Output  Data  Elements: 


GWATX 

GWATY 


/COX2/ 


FW1 

GICE 

SHICE 

TFRZ 

TM1 

TM2 

TMP 

UTEMP 

VTEMP 


/CURNTS/ 

T1 

T2 

U1 

VI 

/FULLWD/ 

ITT 

/OCEANS/ 

FW 


x  component  of  geostrophic  ocean  current 
y  component  of  geostrophic  ocean  current 


heat  above  the  freezing  temperature 

ice  growth  rate  computed  by  the  ice  model 

total  ice  thickness 

temperature  at  freezing  point 

previous  timestep  mixed-layer  temperature 

previous  two  timesteps  mixed-layer  temperature 

array  containing  previous  timestep  temperature  and  salinity  values 

previous  timestep  x  component  of  ocean  current 

previous  timestep  y  component  of  ocean  current 


previous  timestep  of  temperature  and  salinity 
previous  two  timesteps  of  temperature  and  salinity 
previous  timestep  of  x  component  of  ocean  current 
previous  timestep  of  y  component  of  ocean  current 


timestep  counter 


oceanic  heat  flux 


Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 
Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements: 

CP 

constant  of  water  heat  capacity 

real 

EXCHNG 

number  of  times  to  exchange  ice/ocean  data 

real 

I 

index  counter 

integer 

J 

index  counter 

integer 

J1 

temporary  variable 

integer 

M 

index  counter 

integer 

RLATNT 

constant  of  water  latent  heat 

real 

TDAY 

timestep  to  exchange  ice/ocean  data 

real 

ZMIX 

depth  of  mixed  layer  (30  m) 

real 

Logic  Flow: 

The  x  and  y  components  of  the  currents,  temperature,  and  the  salinity  from  the  ocean  model 
are  read  from  the  permanent  binary  restart  data  file.  Input  currents  are  in  centimeters  per  second. 
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temperatures  are  in  degrees  Celsius,  and  salinities  are  calculated  from  0.035  -  salinity  to  find  the 
difference.  Currents  are  converted  to  m/s  and  mixed-layer  temperatures  are  converted  to  Kelvins. 
The  seawater  freezing  temperature  is  calculated  according  to  salinity  as  -54.4  x  salinity.  The  u  and 
v  components  of  currents,  ocean  temperatures,  and  salinity  for  level  1  from  the  last  two  timesteps 
are  stored. 

The  ice  thickness  growth  rate  of  open  water,  the  total  ice  thickness  growth  rate,  and  the  heat 
above  the  freezing  temperature  from  the  previous  timestep  are  read  from  the  file.  If  the  growth  rate 
is  greater  than  that  of  the  heat  above  freezing  temperature,  and  the  heat  above  freezing  is  >0,  the 
growth  rate  is  set  to  0  (no  more  cooling).  Lastly,  the  heat  flux  is  calculated. 

Algorithms: 

The  oceanic  heat  flux  is  calculated  using: 

Q  —  Cp  Zm  (Tm._])lt(ilnt+  GLW  ,  (5) i 

where  cp  is  the  constant  of  water  heat  capacity,  | 

zm  is  the  depth  of  the  mixed  layer, 

Tm.  is  the  mixed-layer  temperature  from  the  previous  timestep, 

Tm._  j  is  the  mixed-layer  temperature  from  two  timesteps  ago,  | 

td!nt  is  the  timestep  to  exchange  data  on  (tj  is  the  number  of  seconds  in  a  day  and 
nt  is  the  number  of  times  to  exchange  data), 

G  is  the  ice  growth  rate,  and 

Lw  is  the  constant  of  water  latent  heat. 

CSURST_OCN  is  implemented  by  CSU  DRIVER. 

Local  Data  Files: 

The  restart  data  are  read  from  forO  1 0_<  mmdd>  .dat  (unit  13),  where  <mmdd>  is  the  two-digit 
month  and  two-digit  day  of  the  previous  day.  This  permanent,  binary  file  contains  the  unformatted 
restart  data  from  the  previous  day. 

3.3  CSC  Compute  Ice 

3.3.1  CSC  Compute  Ice  Driver 

3.3.1.1  CSU  ICEMDL 

CSU  ICEMDL  is  the  main  driving  subroutine  for  the  Hibler  viscous-plastic  sea  ice  model 
(1979;  1980).  Minor  modifications  were  made  to  allow  the  original  routine  to  function  as  a  subroutine 
in  the  CSCI  PIPS2.0. 

3. 3. 1.1.1  CSU  ICEMDL  Design  Specification/Constraints  -  The  snowfall  rates  are  based  or 
monthly  climatological  values  (Maykut  and  Untersteiner  1969;  Parkinson  and  Washington  1979). 
There  are  no  known  constraints. 

3.3. 1.1. 2  CSU  ICEMDL  Design 

Input  Data  Elements: 

AMASS  ice  mass  per  grid  area 

DELTAT  timestep  (s)  ' 
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DELTAX  x  (longitude)  grid  spacing  (deg) 

DELTAY  y  (latitude)  grid  spacing  (deg) 

DRAGA  asymmetric  water  drag  plus  the  Coriolis  parameter 
DRAGS  symmetric  water  drag 

ETA  nonlinear  shear  viscosity 

FO  growth  rate  of  thin  ice 

GAREA  change  of  compactness  due  to  freezing  or  melting 

HCORR  additional  ice  to  be  melted  for  mixed-layer  balance 

HDIFF1  net  rate  of  total  open  water  growth 

ZETA  nonlinear  bulk  viscosity 

/GROW/ 

FHEFF  total  growth  rate  of  thick  ice 

/MASK/ 

HEFFM  land/sea  mask  for  thermodynamic  variables 

OUT  land/sea  mask  including  outflow  conditions  for  thermodynamic  variables 

UVM  land/sea  mask  for  velocity  variables 

/RFOR2/ 

GAIRX  x  component  of  the  geostrophic  wind 

GAIRY  y  component  of  the  geostrophic  wind 

GW  ATX  x  component  of  the  ocean  current 

GWATY  y  component  of  the  ocean  current 

/RSTRT/ 

AREA1  fraction  of  grid  cell  covered  by  ice 

HEFF  mean  ice  thickness  per  grid  cell 

UICE  x  component  of  ice  drift 

UICEC  intermediate  x  component  of  the  ice  drift 

VICE  y  component  of  ice  drift 

VICEC  intermediate  y  component  of  the  ice  drift 

/TSTEP/ 

IDTG  date-time  group;  read  from  standard  input  (YYMMDDHH) 

ITSTEP  number  of  timesteps  for  run 

MDY  day  calculated  from  date-time  group 

MM  month  calculated  from  date-time  group 

PRTSTP  interval  in  timesteps  at  which  to  write  results 

Output  Data  Elements: 

A22  minimal  compactness  allowed 

AMASS  ice  mass  per  grid  area 

DIFF1  harmonic  diffusion  constant 

DRAGA  asymmetric  water  drag  plus  the  Coriolis  parameter 
DRAGS  symmetric  water  drag 

ERROR  maximum  error  allowed  in  the  relaxation  scheme 

ETA  nonlinear  shear  viscosity 

FO  growth  rate  of  thin  ice 

GAREA  change  of  compactness  due  to  freezing  or  melting 

HCORR  additional  ice  to  be  melted  for  mixed-layer  balance 
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HDIFF1 

net  rate  of  total  open  water  growth 

HO 

demarcation  between  thick  and  thin  ice 

LAD 

determines  the  timestepping  scheme  used 

THETA 

indicates  a  backwards  timestep 

ZETA 

nonlinear  bulk  viscosity 

/GROW/ 

FHEFF 

total  growth  rate  of  thick  ice 

/RFOR2/ 

GW  ATX 

x  component  of  the  ocean  current 

GWATY 

y  component  of  the  ocean  current 

/RSTRT/ 

AREA1 

fraction  of  grid  cell  covered  by  ice 

HEFF 

mean  ice  thickness  per  grid  cell 

UICE 

x  component  of  ice  drift 

UICEC 

intermediate  x  component  of  ice  drift 

VICE 

y  component  of  ice  drift 

VICEC 

intermediate  y  component  of  ice  drift 

/SNOW/ 

SNRT 

snowfall  rate 

/STEP/ 

DELTAT 

timestep  (s) 

DELTAX 

x  (longitude)  grid  spacing  (deg) 

DELTAY 

y  (latitude)  grid  spacing  (deg) 

/STEPSP/ 

DELTXA 

x  (longitude)  grid  spacing  for  thermodynamic  fields  (m) 

DELTXU 

x  (longitude)  grid  spacing  for  velocity  fields  (m) 

DELTYA 

y  (latitude)  grid  spacing  for  thermodynamic  fields  (m) 

DELTYU 

y  (latitude)  grid  spacing  for  velocity  fields  (m) 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 

Local  Data  Elements: 

ARSUM 

sum  of  ice  compactness  over  all  grid  squares 

real 

ARSUM1 

net  ice  concentration 

real 

DELTT 

1/2  of  the  timestep  (s) 

real 

FHSUM 

sum  of  growth  rate  of  ice  over  all  grid  squares 

real 

FHSUM1 

net  ice  growth 

real 

GRSUM 

sum  of  thin  ice  over  all  grid  squares 

real 

GRSUM1 

net  open  water  growth 

real 

I 

index  counter 

integer 

ICOUNT 

timestep  counter 

integer 
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IMT  total  number  of  T  grid  boxes  zonally  (360)  integer 

IMTM1  total  number  of  T  grid  boxes  zonally  -  1  (359)  integer 

IT  number  of  timesteps  allowed  during  run  integer 

ITSTEP  number  of  timesteps  for  run  integer 

J  index  counter  integer 

JMT  total  number  of  T  grid  boxes  meridionally  (360)  integer 

JMTM1  total  number  of  T  grid  boxes  meridionally  -  1  (359)  integer 

KSTEP  counter  for  timesteps  integer 

MID  Y  ( 1 60)  integer 

PRTSTP  the  interval,  in  timesteps,  at  which  to  print  results  real 

RADIAN  degrees  per  radian  (57.29578°)  real 

RADIUS  radius  of  the  earth  (6370.0  x  103  m)  real 

SM  maximum  value  of  SMU  and  SMV  real 

SMU  maximum  value  of  x  component  of  the  velocity  real 

difference  between  times  T+l  and  T 

SMV  maximum  value  of  y  component  of  the  velocity  real 

difference  between  times  T+l  and  T 

SQ  squared  velocity  real 

SQ1  squared  velocity  difference  between  times  t+l  and  t  real 

THEFF  total  basin  ice  thickness  real 

THEFF1  total  basin  ice  thickness  after  outflow  adjustment  real 

THEFF2  sum  of  thickness  over  all  grid  squares  real 

TOUT  net  outflow  real 

TOUT1  outflow  for  the  current  timestep  real 

UERR  x  component  velocity  difference  between  time  t+l  and  t  real 

VERR  y  component  velocity  difference  between  time  t+l  and  t  real 

Data  Conversions: 

When  calculating  the  grid  spacing  in  meters  from  the  grid  spacing  in  degrees,  degrees  must  be 
converted  to  radians. 

Logic  Flow: 

Before  solving  any  equations,  initial  conditions  for  the  model  are  defined.  First,  the  latitude 
grid  spacing  in  meters  for  the  velocity  (DELTYU)  and  thermodynamic  (DELTYA)  fields  are  defined. 
These  values  are  assumed  to  be  equal  and  are  constant  for  all  latitudes: 

DELTYU  =  DELTAY  *  RADIUS/RADIAN 
DELTYA  =  DELTAY  *  RADIUS/RADIAN, 

where  DELTAY  is  the  y  (latitude)  grid  spacing  in  degrees  (0.28575°),  RADIUS  is  the  radius  of  the 
Earth  (6370.0  x  103  m),  and  RADIAN  is  degrees  per  radian  (57.29578°). 

Next,  the  grid  length  in  meters  for  the  ice-drift  velocity  (DELTXU)  and  the  grid  length  for  ice 
thickness  and  concentration  (DELTXA)  are  defined: 

DELTXU (/)  =  cos(DELTAY  *  (FLOAT(T)  -  (MIDY  -  0.5)  -  0.5)/RADIAN) 

*  DELTAX  *  RADIUS/RADIAN 

DELTXA(T)  =  cos(DELTAY  *  (FLOAT(Z)  -  MIDY  -  0.5)/RADIAN) 

*  DELTAX  *  RADIUS/RADIAN 
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where  DELTAY  is  the  y  (latitude)  grid  spacing  in  degrees,  J  is  the  index  of  the  number  of  T  grid 
boxes  meridionally  and  DELTAX  is  the  x  (longitude)  grid  spacing  in  degrees  (0.28575°),  RADIUS 
is  the  radius  of  the  Earth,  and  RADIAN  is  degrees  per  radian. 

The  month  and  day  are  used  to  initialize  the  snowfall  rate  based  on  monthly  climatological 
values  (Parkinson  and  Washington  1979). 


Month 

Snowfall  Rate  (m/s) 

January 

3.215  x  10"9 

February 

3.215  x  10~9 

March 

3.215  x  10“9 

April 

3.215  x  10“9 

May 

19.29  x  10“9 

June 

0 

July 

0 

August  1-19 

0 

August  20-31 

49.603  x  10-9 

September 

49.603  x  10“9 

October 

49.603  x  10~9 

November 

3.215  x  10“9 

December 

3.215  x  10“9 

Additional  initial  values  are  calculated.  The  maximum  error  allowed  in  the  relation  scheme  (ERROR) 
is  set  to: 

ERROR  =  0.000001  *  5.0. 

DIFF1,  the  harmonic  diffusion  constant,  is  redefined  in  spherical  coordinates.  It  is  assumed  to 
be  a  constant  coefficient  for  the  harmonic  function  of  the  diffusion  for  ice  concentration  and 
thickness  at  all  locations.  Note  that  the  harmonic  term  coefficient  is  defined  to  be  0.004  times  the 
grid  length  to  have  the  diffusion  approximate  to  the  change  of  ice  thickness  and  concentration  over 
one  timestep: 

DIFF1  =  0.004  *  DELTXA, 

where  DELTXA  is  the  x  (longitude)  grid  spacing  in  meters  for  thermodynamic  fields.  This  term 
will  be  used  later  in  determining  the  advection  of  the  ice  thickness  and  compactness. 

To  calculate  the  growth  rates  of  the  ice,  the  demarcation  between  thick  and  thin  ice  is  defined 
as  HO  =  0.5  *  2.0. 

CSU  XSUM  is  called  to  calculate  the  total  basin  ice  thickness  except  at  outflow  boundary 
gridpoints. 

The  initial  value  of  THETA  is  set  to  1.0.  This  is  used  later  in  the  RELAX  CSU  to  indicate  ? 
backward  timestep. 

CSU  FORM  is  called  to  calculate  the  basic  parameters  for  the  RELAX  CSU.  The  ice  drift 
ocean  currents,  marine  winds,  outflow,  thermodynamic  land/sea  mask,  ice  thickness,  and  ice 
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concentration  are  used  to  determine  the  average  ice  mass  in  a  grid  square,  the  symmetric  and 
asymmetric  water  drags,  the  forcing  fields,  the  ice  pressure,  and  viscosities. 

The  average  ice  mass  per  grid  square  (AMASS),  the  nonlinear  bulk  viscosity  (ZETA),  and  the 
nonlinear  shear  viscosity  (ETA)  are  defined  for  each  velocity  field: 

AMASS  (I,J)  =  0, 

ZETA (I,J)  =  HEFF(/,y,l)  *  1011, 

ETA  (/,/)  =  ZETA(/,/)/4.0, 

where  HEFF  is  the  mean  ice  thickness  per  grid  cell. 

The  ice  momentum  balance  equation  is  solved  by  calling  the  RELAX  CSU.  The  ice  advection 
term  is  also  computed  there. 

The  standard  predictor  corrector  iteration  scheme  is  used  to  center  the  nonlinear  terms.  The 
process  begins  by  looping  over  the  number  of  timesteps.  First  a  prediction  is  done  followed  by  a 
regular  timestep.  For  the  prediction,  the  third  time  level  value  for  each  x  and  y  component  of  the 
ice  drift  is  set  to  the  value  at  the  first  time  level.  The  intermediate  x  and  y  components  of  the  ice 
drift  are  set  to  the  x  and  y  components  of  the  ice  drift  at  the  first  time  level: 

UICE(/,/,3)  =  UICE(/,/,l) 

VICE(/,7,3)  =  VICE(/,7, 1 ) 

UICEC(/,J)  =  UICE(/,7,1) 

VICE  C(I,J)  =  VICE(/,y,l) 

The  indicator  for  the  backward  timestep  THETA  is  set  to  1.0.  The  FORM  CSU  is  called  to 
calculate  the  terms  for  the  momentum  equation  and  then  the  equation  is  solved  by  calling  the 
RELAX  CSU.  This  relaxation  solution  is  required  to  center  the  nonlinear  terms. 

After  a  prediction,  a  regular  timestep  is  calculated.  The  first  and  second  time  levels  of  the  x 
and  y  components  of  the  ice  drift  are  averaged: 

UICE(/,J,1)  =  0.5  *  (UICE(/,7,1)  +  UICE(/,J,2)) 

VICE(/,7,1)  =  0.5  *  (VICE(/,7,1)  +  VICE(/,J,2)) 

The  FORM  CSU  is  called  to  calculate  the  terms  for  the  momentum  equation.  The  third  time 
level  value  for  each  x  and  y  component  of  the  ice  drift  is  set  to  the  value  at  the  first  time  level. 
The  intermediate  x  and  y  components  of  the  ice  drift  are  set  to  the  x  and  y  components  of  the  ice 
drift  at  the  first  time  level.  The  first  time  level  for  each  x  and  y  component  of  the  ice  drift  is  set 
to  the  value  of  the  second  time  level: 

UICE(/,7,3)  =  UICE(/,J,1) 

VICE(/,/,3)  =  VICE(/,7,1) 

UICEC(/,/)  =  UICE(/,y,l) 

VICE  C(/,J)  =  VICE(/,y,l) 

UICE(/,/,l)  =  UICE(/,J,2) 

VICE(/,/,l)  =  VICE(/,y,2) 
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The  momentum  equation  is  solved  by  calling  the  RELAX  CSU.  This  relaxation  solution  is 
required  to  advance  to  the  next  timestep. 

The  t  +  1  time  values  of  UICE  and  VICE  are  saved  for  use  in  the  advection  of  the  ice  thickness 
and  compactness. 

UICEC(7,7)  =  UICEC(7,7,1), 

VICEC(7,7)  =  VICEC(7,7,1), 

where  7  and  J  are  loop  indices  for  the  total  number  of  T  grid  boxes  zonally  and  meridionally, 
respectively. 

The  squared  velocity  and  squared  velocity  difference  between  times  t+1  and  t  are  calculated. 
This  velocity  information  is  then  written  to  standard  output  along  with  the  timestep  counter  and, 
date-time  group. 

SQ  =  SQ  +  UICE(7,7,1)  **  2  +  VICE(7,7,1)  **  2 

UERR  =  UICE(7,7, 1 )  -  UICE(7,7,2)  j 

VERR  =  VICE(7,7, 1 )  -  VICE(7,7,2) 

SQ  1  =  SQ  1  +  (UERR  *  UERR)  +  (VERR  *  VERR) 

SMU  =  max(abs(UERR,SMU)) 

SMV  =  max(abs(VERR,SMV)) 

CSU  ADVECT  (Sec.  3.3.5. 1)  is  called  twice — once  to  compute  the  advection  terms  for  the 
continuity  equation  of  ice  thickness  and  once  for  the  advection  of  ice  compactness.  The  advection 
is  a  divergence  of  ice-drift  velocity  times  the  ice  thickness  or  ice  concentration. 

The  forcing  fields  are  used  by  the  HEAT  CSU  (Sec.  3.3.7.1)  to  calculate  the  terms  necessary 
for  determining  the  heat  balance.  Next  the  GROWTH  CSU  (Sec.  3. 3.5.3)  is  called  to  calculate  the 
changes  in  ice  thickness  and  ice  concentration.  The  total  ice  in  the  basin,  excluding  outflow  cells, 
is  recalculated  by  calling  CSU  XSUM  (Sec  3.3.6. 1). 

Several  sums  are  computed  for  ensuring  conservation  and  monitoring  various  contributions  to 
the  ice  changes.  For  each  thermodynamic  field,  the  mean  ice  thickness  per  grid  cell  (HEFF),  the 
fraction  of  the  grid  cell  covered  by  thick  ice  (AREA1),  the  total  growth  rate  of  thick  ice  (FHEFF), 
the  change  in  compactness  due  to  freezing  or  melting  (GAREA),  additional  ice  to  be  melted  foi 
mixed-layer  balance  (HCORR),  and  the  net  rate  of  total  open  water  growth  (HDIFF1)  are  correctec 
at  the  outflow  grid  cells: 

HEFF(7,7,1)  =  HEFF(7,7,1)  *  OUT(7,7) 

HEFF(7,7,2)  =  HEFF(7,7,2)  *  OUT(7,7) 

HEFF(7,7,3)  =  HEFF(7,7,3)  *  OUT(7,7) 

AREA1  (7,7,  1 )  =  AREA  1  (7,7,  1)  *  OUT(7,7) 

AREA  1  (7,7,2)  =  AREA  1  (7,7,2)  *  OUT(7,7) 

AREA  1(7,7, 3)  =  AREA1(7,7,3)  *  OUT(7,7) 

FHEFF(7,7)  =  FHEFF(7,7)  *  OUT(7,7) 
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GAREA (7,7)  =  GAREA(7,7)  *  OUT(7,7) 

HCORR (7,7)  =  HCORR (I,J)  *  OUT (I,J) 

HDIFF  1(7,7)  =  HDIFF  1(7,7)  *  OUT(/,7) 

Also,  the  sum  of  the  thickness  over  all  grid  squares  (THEFF2),  the  sum  of  ice  compactness 
over  all  grid  squares  (ARSUM),  and  the  sum  of  growth  rate  of  ice  over  all  grid  squares  (FHSUM) 
is  0 


GRSUM  =  GRSUM  +  HEFF  1(7,7) 

THEFF2  =  THEFF2  +  HEFF(/,7,1) 

ARSUM  =  ARSUM  +  AREA  1  (7,7,1) 

FHSUM  =  FHSUM  +  FHEFF(7,7) 

Then  the  net  values  for  all  timesteps  are  determined.  These  include  the  net  open  water  growth 
(GRSUM  1),  the  net  ice  growth  (FHSUM  1),  net  ice  concentration  (ARSUM  1),  the  outflow  for  the 
current  timestep  (TOUT1),  the  total  basin  ice  thickness  (THEFF),  and  the  net  outflow  (TOUT): 

GRSUM  1  =  GRSUM  1  +  GRSUM 
FHSUM  1  =  FHSUM  1  +  FHSUM 
ARSUM  1  =  ARSUM  1  +  ARSUM 
TOUT1  =  THEFF  -  THEFF2  -  THEFF  1 
THEFF  =  THEFF2 
TOUT  =  TOUT  +  TOUT1 

If  the  current  timestep  interval  is  one  at  which  to  write  to  standard  output,  then  the  values  of 
the  date-time  group  (IDTG),  the  current  timestep  (ICOUNT),  the  squared  velocity  (THEFF),  the 
squared  velocity  difference  (THEFF1),  the  outflow  for  the  current  timestep  (TOUT1),  the  net 
outflow  (TOUT),  ice  growth  for  the  current  timestep  (FHSUM),  the  net  ice  growth  (FHSUM  1),  the 
sum  of  the  thin  ice  over  all  grid  squares  (GRSUM),  the  net  open  water  growth  (GRSUM  1),  the  sum 
of  ice  compactness  over  all  grid  squares  (ARSUM),  and  the  net  ice  concentration  (ARSUM1)  are 
printed. 

If  the  current  timestep  is  the  last  timestep,  then  the  process  is  terminated.  This  iterative  process 
continues  until  all  timesteps  are  processed. 

3.3.2  CSC  Atmospheric  Forcing 

Atmospheric  forcing  fields  are  read  in  CSU  RFORCE,  which  in  turn  calls  CSU  GEOWIND  to 
calculate  the  geostrophic  winds. 

3.3.2.1  CSU  RFORCE 

CSU  RFORCE  reads  the  atmospheric  forcing  fields  derived  from  the  1992  results  of  NOGAPS 
and  calls  CSU  GEOWIND  to  calculate  the  geostrophic  winds.  Winds  are  output  for  use  by  the  CSC 
Compute  Ocean. 

3. 3. 2. 1.1  CSU  RFORCE  Design  Specification/Constraints  —  Atmospheric  forcing  data  produced 
by  the  NOGAPS  model  are  read  from  a  file  connected  to  unit  12.  There  are  no  known  constraints. 
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3.3.2.1.2  CSU  RFORCE  Design  - 

Input  Data  Elements: 


TA 

NOGAPS  atmospheric 

PSA 

NOGAPS  atmospheric 

ESA 

NOGAPS  atmospheric 

FSH1 

NOGAPS  atmospheric 

PSB 

NOGAPS  atmospheric 

ESB 

NOGAPS  atmospheric 

forcing  -  surface  air  temperature 

forcing  -  surface  air  pressure 

forcing  -  surface  vapor  pressure 

forcing  -  incoming  solar  radiation  (short  wave) 

forcing  -  total  heat  flux 

forcing  -  sensible  heat  flux 


Output  Data  Elements: 

ES  NOGAPS  atmospheric  forcing  -  surface  vapor  pressure 

ES 1  NOGAPS  atmospheric  forcing  -  sensible  heat  flux 

FSH  NOGAPS  atmospheric  forcing  -  incoming  solar  radiation  (short  wave) 

GAIRX  x  component  of  the  geostrophic  wind 

GAIRY  y  component  of  the  geostrophic  wind 

PS  NOGAPS  atmospheric  forcing  -  surface  air  pressure 

PS1  NOGAPS  atmospheric  forcing  -  total  heat  flux 

TAIR  NOGAPS  atmospheric  forcing  -  surface  air  temperature 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements: 

ESA(IMTPIJMTPI)  NOGAPS  atmospheric  forcing  -  surface  vapor  pressure  real 

ESB  (IMTP 1 , JMTP 1 )  NOGAPS  atmospheric  forcing  -  sensible  heat  flux  real 

FS H 1  (IMTP 1 , JMTP 1 )  NOGAPS  atmospheric  forcing  -  incoming  solar  radiation  real 

GAX(IMTP1,JMTP1)  x  component  of  the  wind  velocity  real 

GAY(IMTP1,JMTP1)  y  component  of  the  wind  velocity  real 

I  index  counter  integer 

IMT  total  number  of  T  grid  boxes  zonally  (360)  integer 

IMTP1  total  number  of  T  grid  boxes  zonally  +  1  (361)  integer 

J  index  counter  integer 

JMT  total  number  of  T  grid  boxes  meridionally  (360)  integer 

JMTP1  total  number  of  T  grid  boxes  meridionally  +  1  (361)  integer 

PSA(IMTPIJMTPI)  NOGAPS  atmospheric  forcing  -  surface  pressure  real 

PS B  (IMTP  1  JMTP  1 )  NOGAPS  atmospheric  forcing  -  total  heat  flux  real 

TA(IMTP1,JMTP1)  NOGAPS  atmospheric  forcing  -  air  temperature  real 


Logic  Flow: 

The  RFORCE  CSU  is  called  by  the  ICEMDL  CSU  to  read  the  forcing  fields. 

The  atmospheric  forcing  fields  are  read  from  a  file  connected  to  logical  unit  12.  These  include 
NOGAPS  atmospheric  forcing  values  for  the  air  temperature  (TA),  the  surface  pressure  (PSA),  the 
surface  vapor  pressure  (ESA),  the  incoming  solar  radiation  (FSH1),  the  total  heat  flux  (PSB),  ane 
the  sensible  heat  flux  (ESB). 

The  CSU  GEOWIND  is  called  to  calculate  the  x  and  y  components  of  the  geostrophic  wine 
from  the  surface  pressure  fields  of  atmospheric  forcing. 
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Before  returning  to  the  calling  CSU,  the  atmospheric  fields  are  converted  into  units  needed  for 
the  ice  portion  of  the  model. 

Local  Data  Files: 

The  NOGAPS  atmospheric  forcing  data  are  in  a  permanent,  IEEE  binary  file  called  p92<m«ttW>.dat 
(unit  12),  where  <mmdd>  is  the  current  two-digit  month  and  two-digit  day. 

3.3.2.2  CSU  GEOWIND 

The  GEOWIND  CSU  calculates  geostrophic  winds  from  surface  pressure  fields. 

3. 3. 2.2.1  CSU  GEOWIND  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3. 3. 2.2.2  CSU  GEOWIND  Design 
Input  Data  Elements: 

PS  NOGAPS  atmospheric  forcing  -  surface  air  pressure 

/CORSP/ 

FCORSP  array  of  sine  of  latitude  positions  for  each  gridpoint 

/STEPSP/ 

DELTXU  x  (longitude)  grid  spacing  for  velocity  fields  (m) 

DELTYU  y  (latitude)  grid  spacing  for  velocity  fields  (m) 

Output  Data  Elements: 

G1X  x  component  of  geostrophic  wind 

G1Y  y  component  of  geostrophic  wind 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 


Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements: 

CMBNM 

conversion  factor  from  millibars  to  N/m2  (100.0  N/m2) 

real 

F 

Coriolis  parameter  (1.46  x  lO^/s) 

real 

FPIN 

constant  used  in  calculating  the  x  and  y  components  of 
the  geostrophic  wind  (1.0/(F  *  RHO)) 

real 

I 

index  counter 

integer 

J 

index  counter 

integer 

RHO 

density  of  air  (1.3  km/m3) 

real 

Algorithms: 

To  calculate  the  x  (G1X)  and  y  ( G\Y)  components  of  the  geostrophic  wind,  the  following 
equations  are  used: 

FPIN  =  1.0  /  (F*  RHO)  (6) 

GlXi  +  i, j  +  i  =  -1.0  *  FPIN  *  CMBNM  *  (( PSij  +  j  +  PS,  +  hj  +l)/2 
-  ( PSij  +  PSi  +  ij)  12)1  DELTYU  /  FCORSP u 


(7) 
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GlYi  +  ij  +  i  =  FPIN  *  CMBNM  *  ((PS/  +  ij  +  PSi  +  U  +  i)  /  2  (8) 

-  (PSy  +  PS/,  j  + 1 )  /  2)  /  DELTXUj  /  FCORSPij , 

where  P  is  the  Coriolis  parameter  (1.46  x  10_4/s),  P//0  is  the  density  of  air  (1.3  km/m3),  CMBNM 
is  the  conversion  factor  from  millibars  to  N/m2  (100.0  N/m2),  PS  is  the  pressure  field  of  atmo¬ 
spheric  forcing,  DELTYU  is  the  y  (latitude)  grid  spacing  for  velocity  fields  in  meters,  DELTXU  is 
the  x  (longitude)  grid  spacing  for  velocity  fields  in  meters,  and  FCORSP  is  the  latitude  position 
of  the  grid  element.  F,  RHO,  and  CMBNM  are  local  constants.  PS,  DELTYU ,  DELTXU,  and  FCORSP 
are  inputs  to  the  CSU.  The  values  of  GIX  and  GIT  are  returned  to  the  calling  CSU. 

Data  Conversions: 

The  pressure  must  be  converted  from  millibars  to  N/m2. 

Logic  Flow:  i 

The  RFORCE  CSU  calls  the  GEOWIND  CSU  to  calculate  the  geostrophic  winds  from  the 
surface  pressure  fields.  The  surface  air  pressure  (PS),  the  array  of  sine  of  latitude  positions  (FCORSP), 
the  x  and  y  grid  spacing  (DELTXU  and  DELTYU)  are  all  inputs  to  the  CSU  and  are  used  in 
determining  the  geostrophic  winds. 

Before  any  calculations,  the  constant  values  for  the  Coriolis  parameter  (F),  the  density  of  air 
(RHO),  and  the  conversion  factor  from  millibars  to  N/m2  (CMBNM)  are  defined: 

F  =  1 .46  *  1 0-4 
RHO  =  1.3 

FPIN  =  1.0/(F  *  RHO) 

CMBNM  =  100.0. 

Then  the  x  and  y  components  of  the  inner  geostrophic  wind  values  for  each  velocity  field  are 
defined: 

G1X(/+ 1,7+1)  =  -1.0  *  FPIN  *  CMBNB  *  ((PSI(/,/+l)  +  PS(/+1,7+1))  *  0.5 

-  (PS(/,7)  +  PS(/+1,7))  *  0.5)/DELTYU/FCORSP(/,7) 

G1X(/+1,7+1)  =  FPIN  *  CMBNB  *  ((PSI(/+1,7)  +  PS(/+1,7+1))  *  0.5 

-  (PS(/,7)  +  PS (7,7+1))  *  0.5)/DELTXU(7)/FCORSP(/,7). 

The  boundary  values  are  set  equal  to  inside  values  by  first  looping  over  the  zonal  portion  o 
the  grid  boxes  (/): 

G1X(/,1)  =  GlX(/,2) 

G1Y(/,1)  =  GlY(/,2) 

G1X(/,NY2)  =  G1X(/,NY1) 

G1Y(I,NY2)  =  G1Y(I,NY1) , 

and  then  looping  over  the  meridian  portion  of  the  grid  boxes  (7) 


G1X(1,7)  =  G1X(2,7) 
G1Y(1,7)  =  G1Y(2,7) 
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G1X(NX2,/)  =  G1X(NX1,7) 

G1Y(NX2,7)  =  GlY(NXl,y). 

The  x  and  y  components  of  the  geostrophic  winds  are  returned  to  CSU  RFORCE  through  the 
parameter  list. 

3.3.3  CSC  Momentum  Balance 

The  Momentum  Balance  CSC  calculates  the  terms  needed  to  solve  the  momentum  equation. 
The  CSUs  listed  below  perform  the  functions  required  by  the  CSC  Momentum  Balance. 

FORM  Computes  the  x  and  y  components  of  forcing  due  to  the  ocean  currents  plus 

the  ice  pressure  gradient. 

RELAX  Uses  the  relaxation  method  to  solve  the  momentum  balance  equation. 
QMAX  Finds  the  maximum  value  in  an  array  of  values. 

The  forcing  due  to  the  ocean  current  is  estimated  in  the  FORM  CSU.  The  x  and  y  components 
of  forcing  are  then  used  by  the  RELAX  CSU  to  solve  the  momentum  equation  through  the  relax¬ 
ation  method.  The  CSU  QMAX  is  called  by  the  RELAX  CSU  to  find  the  largest  U  and  V  correction 
values  for  each  of  the  grids. 

3.3.3.1  CSU  FORM 

The  FORM  CSU  calculates  the  forcing  terms  for  the  ice  momentum  balance  equation.  The  “law 
of  the  wall”  is  used  to  estimate  the  water/ice  drag  coefficient  and  the  corresponding  turning  angle 
between  the  top  mixed  layer  and  the  ice  bottom. 

3. 3. 3. 1.1  CSU  FORM  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.3.3. 1.2  CSU  FORM  Design 

Input  Data  Elements: 

AREA1  fraction  of  grid  cell  covered  by  ice 

ETA  nonlinear  shear  viscosity 

GAIRX  x  component  of  the  geostrophic  wind 

GAIRY  y  component  of  the  geostrophic  wind 

GW  ATX  x  component  of  ocean  current 

GWATY  y  component  of  ocean  current 

HEFF  mean  ice  thickness  per  grid  cell 

OUT  land/sea  mask  including  outflow  conditions  for  thermodynamic  variables 

UICE  x  component  of  the  ice  drift 

VICE  y  component  of  the  ice  drift 

ZETA  nonlinear  bulk  viscosity 

/FCORSP/ 

FCORSP  array  of  sine  of  latitude  positions  for  each  gridpoint 

/STEPSP/ 

DELTXU  x  (longitude)  grid  spacing  for  velocity  fields  (m) 

DELTYU  y  (latitude)  grid  spacing  for  velocity  fields  (m) 
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Output  Data  Elements: 

AMASS  ice  mass  per  grid  area 

DRAGA  asymmetric  water  drag  plus  the  Coriolis  parameter 


DRAGS 

symmetric  water  drag 

ETA 

nonlinear  shear  viscosity 

HEFFM 

land/sea  mask  for  thermodynamic  variables 

ZETA 

nonlinear  bulk  viscosity 

/FORCE/ 

FORCEX 

x  component  of  the  forcing  due  to  the  ocean  currents 

plus  the  ice 

pressure  gradient 

FORCEY 

y  component  of  the  forcing  due  to  the  ocean  currents 

plus  the  ice 

pressure  gradient 

/PRESS/ 

PRESS 

ice  strength 

Parameters: 

stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 

Local  Data  Elements: 

CDWI 

variable  drag  coefficient  between  ice  and  water 

real 

CONSTK 

von  Karman  constant  (0.41) 

real 

CONSTZ 

minimum  ice  roughness  (0.01) 

real 

C0R(IMTM1,JMTM1)  array  of  the  Coriolis  forcing 

real 

COSWAT 

cosine  of  the  turning  angle  for  water  (0.9063) 

real 

COSWIN 

cosine  of  the  turning  angle  for  wind  (0.9205) 

real 

DAIRN 

nonlinear  wind  drag 

real 

DWATN(IMTM1,JMTM1)  nonlinear  water  drag 

real 

ECCEN 

ratio  of  the  principal  axes  of  the  plastic  yield  ellipse  (2.0)  real 

FCOR 

Coriolis  parameter  (1.46  x  10  vs) 

real 

HMIN 

minimum  ice  thickness 

real 

I 

index  counter 

integer 

II 

index  counter 

integer 

J 

index  counter 

integer 

JJ 

index  counter 

integer 

RHOAIR 

density  of  air  (1.3  kg/m3) 

real 

SINWAT 

sine  of  the  turning  angle  for  water  (0.4226) 

real 

SINWIN 

sine  of  the  turning  angle  for  wind  (0.3907) 

real 

Algorithms: 

The  ice  mass 

per  grid  cell  m  is  calculated  by: 

s 

II 

-o 

Is- 

(9) 

where  p;  is  the  density  of  ice  0.91  x  103  kg/m3  and  h  is  the  ice  thickness  as  input  to  the  CSU.  The 
calculated  ice  mass  is  output  by  the  CSU  and  is  also  used  by  this  CSU  to  calculate  the  Coriolis 
term. 
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After  computing  the  ice  mass,  the  Coriolis  term  for  each  grid  cell  is  calculated  using: 

COR  =  mf  sin (lat)  ,  (10) 

where  m  is  the  ice  mass  calculated  above,  /  is  the  constant  Coriolis  parameter  value  of 
1.46  x  10^/sec  and  lat  is  the  latitude  of  the  grid  element  in  radians. 

The  equation  for  air  stress  is  as  follows: 


\  =  9aCa  Ug 


Ug  cos<j>  +  k  *  Ug  sin<(> 


)• 


(11) 


where  pa  is  the  density  of  air,  Ca  is  the  air  drag  coefficient,  Ug  is  the  geostrophic  wind,  k  is  a  unit 
vector  normal  to  the  surface,  and  <|>  is  the  air  turning  angle. 

The  equation  for  water  stress  is  as  follows: 


P  w 


Uw-u 


[pw  -  w)  cos8  +  k  *  \uw  -  w)  sinG 


(12) 


where  pw  is  the  density  of  water,  Cw  is  the  water  drag  coefficient,  Uw  is  the  geostrophic  current, 
u  is  the  ice-drift  velocity,  0  is  the  water  turning  angle,  and  k  is  a  unit  vector  normal  to  the  surface. 

The  ice  strength  is  calculated  by  using  the  following  equation: 

P  =  P*  Aexp[-C(l  -A)] ,  (13) 

where  P  *  is  the  pressure  constant  (2.75  x  104  N/m2),  C  is  a  fixed  empirical  constant  (20),  h  is  the 
ice  thickness,  and  A  is  the  ice  compactness.  This  relationship  allows  the  ice  to  become  stronger  as 
it  thickens. 

Data  Conversions: 

Latitude  positions  must  be  converted  from  degrees  to  radians  before  calculations  may  be  performed. 

Logic  Flow: 

The  FORM  CSU  is  called  by  the  ICEMDL  CSU.  It  is  dedicated  to  determining  the  x  and  y 
components  of  forcing  due  to  the  ocean  currents  plus  the  ice  pressure  gradient.  These  two  equations 
are  stated  as: 

FORCEX  =  X{wind  stress)  +  X(water  drag)  +  X(tilt)  +  X(ice  pressure  gradient ) 

FORCEY  =  Y(wind  stress)  +  Y {water  drag)  +  Y(tilt)  +  Y(ice  pressure  gradient). 

Each  x  and  y  component  (wind  stress,  water  drag,  tilt,  and  ice  pressure  gradient)  is  solved  and 
added  to  the  previous  value  of  FORCEX  and  FORCEY,  respectively. 

The  process  of  finding  the  ice  pressure  gradient  and  water  drag  begins  by  calculating  the 
average  ice  mass  per  grid  cell  (AMASS)  and  the  Coriolis  term  (COR)  for  each  grid  cell.  The  ice 
mass  per  grid  cell  is  calculated  by: 
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AMASS (/,7)  =  0.91  *  103  *  0.25  *  (HEFF(/,7,1)  +  HEFF(/+ 1,7,1)  +  HEFF(/, 7+1,1)  +  HEFF(/+1,7+1,1)). 

where  HEFF  is  the  mean  ice  thickness.  The  Coriolis  term  for  each  grid  cell  is  based  on  the  ice  mass, 
Coriolis  parameter,  and  latitude  and  is  computed  using: 

COR(/,7)  =  AMASS(/,7)  *  FCOR  *  FCORSP(/,7), 

where  AMASS  is  the  ice  mass  per  grid  cell,  FCOR  is  the  Coriolis  parameter  constant  value  ol 
1.46  x  lO^/s  and  FCORSP  is  the  latitude  of  the  gridpoint  in  degrees. 

Before  calculation  of  the  nonlinear  water  drag,  the  minimum  ice  thickness  (HMIN)  is  calculated, 
values  are  assigned  for  von  Karman’s  constant  (CONSTK)  and  the  minimum  ice  roughness  (CONSTZ), 
and  value  of  the  variable  drag  coefficient  between  ice  and  water  (CDWI)  is  calculated  as  follows: 

HMIN  =  max  (HEFF(/,7,1),  0.015), 

CONSTK  =  0.41, 

CONSTZ  =  0.01,  ! 

CDWI  =  1.0/(alog(HMIN/CONSTZ)/CONSTK)  **  2, 

D  W  ATN(/,7)  =  1000*  sqrt((UICE(/,7, 1 )  -  GWATX(/,7))  *  *  2 
+  (VICE(/,7,1)  -  GWATY(/,7))  **  2)  *  CDWI, 

where  UICE  is  the  x  component  of  the  ice  drift,  VICE  is  the  y  component  of  the  ice  drift,  GW  ATX 
is  the  x  component  of  the  ocean  current,  and  GWATY  is  the  y  component  of  the  ocean  current.  This 
calculated  value  of  DWATN  is  set  to  0.055  if  <0.055. 

Although  the  asymmetric  (DRAGA)  and  symmetric  (DRAGS)  water  drags  are  not  used  ir 
calculating  the  forcing  fields,  the  values  to  be  passed  to  subroutine  relax  are  calculated  here  using 

DRAGA(/,7)  =  DWATN(/,7)  *  SINWAT  +  COR(/,7), 

DRAGS(/,7)  =  DWATN(/,7)  *  COSWAT, 

where  SINWAT  (0.4226)  is  the  sine  of  the  turning  angle  for  water  (25°)  and  COSWAT  (0.9063 
is  the  cosine  of  the  turning  angle  for  water  (25°). 

Processing  is  continued  to  solve  for  the  wind  stress.  The  nonlinear  wind  DAIRN  is  calculated  by 

DAIRN  =  RHOAIR  *  0.0008  *  sqrt(GAIRX(/+ 1,7+1)  **  2  +  GAIRY(/+ 1,7+1)  **  2) , 

where  RHOAIR  is  the  density  of  air  (1.3  kg/m3),  0.0008  is  the  wind  drag  coefficient,  GAIRX  i 
the  x  component  of  the  geostrophic  wind,  and  GAIRY  is  the  y  component  of  the  geostrophic  wind 

Once  all  values  necessary  for  the  x  and  y  components  due  to  wind  stress  are  calculated,  th 
initial  values  for  x  and  y  components  of  forcing  due  to  ocean  currents  and  pressure  gradient  ar 
computed  as  follows: 

FORCEX(/,7)  =  DAIRN(/,7)  *  (COSWIN  *  GAIRX(/+ 1,7+1)  -  SINWIN  *  GAIRY(/+ 1,7+1)) 
FORCEY(/,7)  =  DAIRN(/,7)  *  (SINWIN  *  GAIRX(/+ 1,7+1)  +  COSWIN  *  GAIRY(/+ 1,7+1)) , 
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where  GAIRX  is  the  x  component  of  the  geostrophic  wind,  GAIRY  is  the  y  component  of  the 
geostrophic  wind,  SINWIN  (0.3907)  is  the  sine  of  the  turning  angle  of  air  (23°),  and  COSWIN 
(0.9205)  is  the  cosine  of  the  turning  angle  of  air  (23°). 

Next,  the  water  stress  is  added  to  the  existing  forcing  fields: 

FORCEX(7,7)  =  FORCE X(I,J)  +  DWATN(7,7)  *  (COSWAT  *  GWATX(7,7) 

-  SINWAT  *  GWATY (7,7)), 

FORCEY (I,J)  =  FORCE Y(/,/)  +  DWATN (7,7)  *  (SINWAT  *  GWAT X(7,7) 

-  COSWAT  *  GWATY (7,7)) , 

where  GW ATX  is  the  x  component  of  the  ocean  current,  GWATY  is  the  y  component  of  the  ocean 
current,  COSWAT  (0.9063)  is  the  cosine  of  the  turning  angle  of  water  (25°),  and  SINWAT  (0.4226) 
is  the  sine  of  the  turning  angle  of  water  (25°). 

The  tilt  (or  water  pressure  gradient)  in  the  ice  model  is  computed  from  the  Coriolis  parameter 
and  the  geostrophic  current: 

FORCE X(I,J)  =  FORCEX(7,7)  -  COR (I,J)  *  GWATY (7,7), 

FORCEY (7,7)  =  FORCEY(7,7)  +  COR(7,7)  *  GWATX(7,7) , 

where  GW ATX  is  the  x  component  of  the  ocean  current  and  GWATY  is  the  y  component  of  the 
ocean  current. 

The  ice  pressure  (strength)  is  calculated  using: 

PRESS (7,7)  =  2.75  *  104  *  HEFF(7,7,1)  *  exp(-20.0  *  (1.0  -  AREA  1  (7,7,1))) , 

where  HEFF  is  the  mean  ice  thickness  per  grid  cell  and  AREA1  is  the  area  of  the  grid  cell  covered 
by  ice. 

CSU  PLAST  is  called  to  calculate  strain  rates  (Ell,  E12,  and  E22),  divergence  (DIV),  and 
nonlinear  bulk  and  shear  viscosities  (ZETA  and  ETA).  After  returning  from  the  PLAST  CSU,  the 
viscosities  and  pressure  are  set  equal  to  0  at  the  outflow  gridpoints: 

ETA(7,7)  =  ETA(7,7)  *  OUT(7,7), 

ZETA(7,7)  =  ZETA(7,7)  *  OUT(7,7), 

PRESS (7,7)  =  PRESS(7,7)  *  OUT(7,7)  , 

where  OUT  is  the  land/sea  mask  including  outflow  conditions  for  thermodynamic  variables. 

The  final  step  to  solving  the  equation  for  the  x  and  y  components  of  the  forcing  is  to  subtract 
the  ice  pressure  gradient: 

FORCEX(7,7)  =  FORCEX(7,7)  -  ( 1 .0/DELTXU(7)/2.0)  *  PRESS(7+1,7) 

-  PRESS (7,7)  +  PRESS(7+1,7+1)  -  PRESS (7,7+ 1))/2.0 

FORCE Y(7,7)  =  FORCEY(7,7)  -  (1.0/DELTYU/2.0)  *  PRESS(7,7+1) 

-  PRESS (7,7)  +  PRESS(7+1,7+1)  -  PRESS(7+l,7))/2.0  , 
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where  DELTXU  is  the  x  grid  spacing  in  meters  for  the  velocity  fields  and  DELTYU  is  the  y  grid 
spacing  in  meters  for  the  velocity  fields. 

This  CSU  FORM  returns  the  nonlinear  shear  and  bulk  viscosities  (ETA  and  ZETA),  the  ice 
mass  per  grid  area  (AREA1),  the  symmetric  and  asymmetric  water  drags  (DRAGS  and  DRAGA). 
and  the  x  and  y  components  of  forcing  (FORCEX  and  FORCEY)  to  the  ICE  CSU  upon  completion. 

3.3.3.2  CSU  RELAX 

The  RELAX  CSU  uses  the  method  of  relaxation  to  solve  the  momentum  equation.  This  is  a 
successive  approximation  method  for  solving  systems  of  equations  where  the  errors  from  an  initial 
approximation  are  viewed  as  constraints  to  be  minimized  or  relaxed  within  a  toleration  limit. 

3. 3.3.2. 1  CSU  RELAX  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.3. 3.2.2  CSU  RELAX  Design 

Input  Data  Elements:  j 

AMASS  ice  mass  per  grid  cell 

DRAGA  asymmetric  water  drag  plus  the  Coriolis  parameter 
DRAGS  symmetric  water  drag 

ERROR  maximum  error  allowed  in  the  relation  scheme 

ETA  nonlinear  shear  viscosity 

HEFFM  land/sea  mask  for  thermodynamic  variables 

THETA  indicates  a  backward  timestep 

UICE  x  component  of  the  ice  drift 

UICEC  intermediate  x  component  of  the  ice  drift 

UVM  land/sea  mask  for  the  velocity  variables 

VICE  y  component  of  the  ice  drift 

VICEC  intermediate  y  component  of  the  ice  drift 

ZETA  nonlinear  bulk  viscosity 

/CORSP/ 

FCORSP  array  of  sine  of  latitude  positions  for  each  gridpoint 

/FORCE/ 

FORCEX  x  component  of  forcing  due  to  the  ocean  currents  plus  the  ice  pressure  gradien 

FORCEY  y  component  of  forcing  due  to  the  ocean  currents  plus  the  ice  pressure  gradien 

/STEP/ 

DELTAT  timestep  (s) 

DELTAY  y  grid  spacing  (deg) 

/STEPSP/ 

DELTXU  x  grid  spacing  for  velocity  fields  (m) 

DELTYU  y  grid  spacing  for  velocity  fields  (m)  1 

Output  Data  Elements: 

UICE  x  component  of  the  ice  drift 

VICE  y  component  of  the  ice  drift 
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Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 


stored  in  file  relax.par 


N3 

360  *  360 

N4 

359  *359 

MX 

359 

MY 

359 

M4X 

360/2 

M4Y 

360/2 

M4XY 

M4X  *  M4Y 

M4XP 

M4X+1 

M4XM 

M4X-1 

Ml  STOP 

(359/2-1  )M4X  +  359/2 

M2STOP 

(359/2-1  )M4X  +  360/2-1 

M3STOP 

(360/2-2)M4X  +  359/2 

MSTOP 

(360/2-1  )M4X  -  1 

Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements: 

COEFIX(IMTM  1 ,  JMTM 1 ) 

used  in  determining  relaxation  coefficients  19,  20,  and  21 

real 

COEFI  Y(IMTM  1  JMTM  1 ) 

used  in  determining  relaxation  coefficients  18,  19,  and  21 

real 

DELIN 

reciprocal  of  y  grid  spacing  (m) 

real 

DELIN2 

used  to  define  S1TH  in  spherical  coordinates 

real 

DRAG1 

used  in  calculating  relaxation  coefficients  18,  19,  and  21 

real 

DRAG2 

used  in  calculating  relaxation  coefficients  19,  20,  and  21 

real 

FX3(M4XY) 

array  for  4-color  solver 

real 

FX3A 

added  to  FX3  for  spherical  coordinate  system 

real 

FXM(M4XY,4) 

array  for  4-color  solver 

real 

FY3(M4XY) 

array  for  4-color  solver 

real 

FY3A 

added  to  FY3  for  spherical  coordinate  system 

real 

FYM(M4XY,4) 

array  for  4-color  solver 

real 

I 

index  counter 

integer 

14 

temporary  variable 

integer 

ICOUNT 

counter  for  the  number  of  iterations 

integer 

IJ4 

index  of  first  dimension  for  relaxation  coefficients 

integer 

J 

row  index  counter 

integer 

J4 

temporary  variable 

integer 

K 

index  of  loop  over  four  grids 

integer 

K4 

index  of  third  dimension  for  relaxation  coefficients 

integer 

R(M4XY,21,4) 

relaxation  coefficients 

real 

RADIAN 

degrees  per  radian  (57.29578°) 

real 

RADIUS 

radius  of  the  earth  (6370.0  x  103  m) 

real 

SI 

maximum  error  for  u  and  v 

real 

Sll 

largest  value  of  the  u  velocity  for  grid  1 

real 

S12 

largest  value  of  the  u  velocity  for  grid  2 

real 

S13 

largest  value  of  the  u  velocity  for  grid  3 

real 
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S14 

S1TH 

521 

522 

523 

524 
S2TH 

U4(M4XY,4) 

U4C(M4XY) 

V4(M4XY,4) 

V4C(M4XY) 

WFA 


largest  value  of  the  u  velocity  for  grid  4  real 

used  in  defining  relaxation  real 

coefficients  5,  6,  7,  8,  9,  10,  11,  12,  and  13 
largest  value  of  the  v  velocity  for  grid  1  real 

largest  value  of  the  v  velocity  for  grid  2  real 

largest  value  of  the  v  velocity  for  grid  3  real 

largest  value  of  the  v  velocity  for  grid  4  real 

used  in  defining  relaxation  coefficients  1,  4,  14,  and  17  real 
x  component  of  the  ice  drift  real 

u  velocity  correction  real 

y  component  of  the  ice  drift  real 

v  velocity  correction  real 

relaxation  factor  (1.5)  real 

( 


Algorithms: 

Given  the  present  ice  rheology,  there  are  17  independent  coefficients  necessary  for  the  relax¬ 
ation  steps.  These  coefficients  are  calculated  by  using  the  following  equations: 


#1  =  (1/2/ dy/dy)(r\ij  +  T|/  +  iy)  +  (my  vcij/dy/ 2) 


R2  =  (l/2/dxj/dxj)(T\ij+i  +r\ij+  Cij  +  1  +  Czj)  +  miJ  ucij/dxj/2 

R3  =  (1/2/ dxj/dxj)(r\i  +  i,  y  + 1  +  q;  +  iy  +  Cz  + 1,  j+  1  +  Cz  +  1  j)  ~  mj  ucij/dxj/2 

R4  =  (1/2/ dy/dy)(T\i  + 1,  y  +  \  +  t|/j  +  i)  -  (my  vcij/dy/ 2) 

R5  =  (1/4 /dxj/dyXbj) 

R(,  =  (1/4/ dxj/ dy)[2(-  q,y  -  T|t-  +\j)~  (-  Qj  +  Cz  +  \,j)] 

R1  =  (\/4ldxjldy)(-  C/+  lj) 

=  (1/4/ dxj/ dy)\2(—  qy  +  l  —  qy)  —  (—  Cij  +  1  Cy)l 
/?9  =  (1/4/ dxj! dy)(t,i  +  \  y  +  Qy  —  Qy  —  Q  +  1,  y  +  l) 

7?10  =  (l/4/<ixy/dy)[2(qi  +  ],  y  +  i  -  qz  +  lj)  ~  (Q+  1,  j+\~  Q  +  lj)] 

Rll  =  (1/4/ dxj/dy)(-  Qy  +  i) 

/?12  =  (1/4/ dxj/ dy)[2(V[ij  +  l  -  q;  +  l,  y  +  l)  -  (Qy  + 1  -  Q  +  1,  y  +  l)l 
/?13  =  (1/4/ *ixy/ c/y)(Q  +  i >  y+  l) 

R\ 4  =  (\/2ldyl dy)(T]ij  +  T|,  +  iy  +  Qy  +  Q  +  iy)  +  my  vcij/dy/ 2 
R\5  —  (\/2/dxjI dxj)(x\ y  +  q,y+ 1)  +  (my  ucij/dxj/2 ) 

/?16  =  (1/2 / dxj! dxj)(r\i  +  i,  y  + 1  +  q ,•  +  iy)  -  my  ucij/dxj/2 

R\1  =  (\l2ldyldy)(x\i+  i,  y  + 1  +  qy+  i  +  Q  + 1,  y  +  1  +  Qy  +  l)  -  my  vcij/dy/2  . 
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Here,  dy  is  the  y  grid  spacing  in  meters,  dx  is  the  x  grid  spacing  in  meters,  t|  is  the  nonlinear  shear 
viscosity,  £  is  the  nonlinear  bulk  viscosity,  vc  is  the  intermediate  y  component  of  the  ice  drift  for 
use  in  the  semi-implicit  timestepping,  uc  is  the  intermediate  x  component  of  the  ice  drift  for  use 
in  the  semi-implicit  timestepping,  and  m  is  the  ice  mass  per  grid  area. 

To  perform  the  relaxation,  the  17  independent  coefficients  are  used  to  calculate  the  following 
equations: 


RHSX  =  FXMjj  + 


o 

o 

* 11  * 12  R 13 

R  2  0  R  3 

R 8  R9  *10 

o 

oT 

o 

*5  *6  *7 

ViJ 


^11  ”^12  ^13 

O 

O 

RHSy  =  FYM'j  + 

— /?8  Rg  —Rtf) 

Uu  + 

*15  0  *16 

R5 

o 

>3 

O 

(15) 


Data  Conversions: 

Latitude  positions  are  converted  from  degrees  to  radians. 

Logic  Flow: 

The  RELAX  CSU  is  called  by  the  ICEMDL  CSU. 

Upon  entering  this  CSU,  the  values  of  R,  FXM,  FYM,  U4,  V4,  U4C,  V4C,  FX3,  and  FY3  are 
initialized  to  0.  The  value  of  ICOUNT  is  set  to  0  and  the  relaxation  factor  WFA  is  set  to  1.5. 
DELIN  is  set  to  the  reciprocal  of  the  y  (latitude)  grid  spacing: 

DELIN  =  1.0/DELTYU 
DELIN2  =  DELIN  *  DELIN/2.0 

Then  the  x  and  y  components  of  the  ice  drift  at  the  second  time  level  are  set  equal  to  the  one 
at  the  first: 

UICE(/,7,2)  =  UICE(/,7,1) 
viCE(/,y,2)  =  vicE(/,y,i) 

The  ice  drift  at  the  boundary  points  are  set  equal  to  0  by  multiplying  the  ice  drift  by  the  land/ 
sea  mask: 

UICE(/,7,1)  =  UICE(/,7,3)  *  UVM (7,7) 

VICE(/,7,1)  =  VICE(/,7,3)  *  UVM(/,y) 

COEFFIX  and  COEFFIY  are  defined  in  spherical  coordinates  as 

COEFIX(/,y)  =  1.0/AMASS(/,y)/DELTAT 

+  THETA  *  (DRAGS(/,y)  +  ETA (7,7)  +  ETA(/+1 ,7) 
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+  ETA  (7,7+1)  +  ET A(/+ 1  ,J+ 1  ))/2.0  DELTYU  **  2 
+  (ETA  (I,J)  +  ETA(7+1,7)  +  ETA(7,7+1)  +  ETA(/+ 1,7+1)  +  ZETA(/,7) 

+  ZETA(/+1,7)  +  ZETA(/,7+l)  +  ZETA(/+l,7+l))/2.0/DELTXU(7)  **  2)) 

COEFIY(/,7)  =  1.0/(AMASS(/,7)/DELTAT 

+  THETA  *  (DRAGS  (7,7)  +  ETA(/,7)  +  ETA(/+1,7)  +  ETA(/,7+l) 

+  ET A(/+ 1 ,7+ 1  ))/2 . 0/DELTXU (7)  **  2 
+  (ETA(/,7)  +  ETA(/+1,7)  +  ETA(/,7+l) 

+  ETA(/+ 1,7+1)  +  ZETA(/,7)  +  ZETA(/+1,7)  +  ZETA(/,7+l) 

+  ZETA(/+ 1 ,7+ 1  ))/2.0/DELTYU  **  2)), 

where  THETA  =  1  for  the  Euler  backward  iteration. 

The  values  of  FY3A  and  FX3A  are  0 

FY3 A  =  -  tan(DELTAY  *  (7-(MIDY-0.5)  -  0.5)/RADIAN)/RADIUS)  *  2.0 

*  ((ETA(/,7)  +  ETA(/-1 ,7)  +  ETA(/,7-l )  +  ETA(/-1 ,7-1  ))/4.0)  i 

*  ((VICE(7, 7+1,1)  -  VICE(7,7-1,1  ))/2.0/DELTYU)  *  UVM(7,7) 

FX3A  =  -  tan(DELTAY  *  (7-(MIDY-0.5)  -  0.5)/RADIAN)/RADIUS) 

*  ((ETA(7,7)  +  ETA(7-1,7)  +  ETA(7,7-1)  +  ETA(7-l,7-l))/4.0) 

*  ((VICE(7+ 1,7,1)  -  VICE(7- 1 ,7, 1  ))/2 . 0/DELTXU (7) 

+  (UICE(7,7+1,1)  UICE(7,7- 1 , 1  ))/2 . 0/DELT YU)  *  UVM(7,7) 

FXM(774,X4)  =  UICE(7,7,2)  *  AM  AS  S  (7,7)/DELT  AT  +  FORCEX(7,7)  +  FX3A 

FYM(774,X4)  =  VICE(7,7,2)  *  AM  AS  S(7,7)/DELT  AT  +  FORCEY(7,7)  +  FY3A, 

where  DELTAY  is  the  y  grid  spacing  in  degrees,  MIDY  is  equal  to  160.0,  RADIAN  is  the  conversion 
factor  from  degrees  to  radians,  RADIUS  is  the  radius  of  the  earth  in  meters,  ETA  is  the  nonlinear 
shear  viscosity,  VICE  is  the  y  component  of  the  ice  drift,  DELTYU  is  the  y  grid  spacing  in  meters, 
UVM  is  the  land/sea  mask  for  the  velocity  fields,  DELTXU  is  the  x  grid  spacing  in  meters,  and 
UICE  is  the  x  component  of  the  ice  drift. 

At  this  point,  the  relaxation  coefficients  are  explicitly  calculated.  S1TH,  S2TH,  and  SDL  are 
then  defined  in  spherical  coordinates: 

S1TH  =  0.5  *  DELIN2  *  THETA 

S2TH  =  2.0  *  S1TH 

SDL  =  0.5  *  THETA  *  DELIN 

The  relaxation  coefficients  are  defined  for  four  grids  (X4): 

74  =  774/M4X  +  1 

74  =  774  -  (74  -  1)  *  M4X 

7  =  2  *  74  -  (4  -  K4)/2. 
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If  the  value  of  J  is  greater  than  1  or  less  than  the  number  of  rows  for  the  velocity  fields,  then 
the  value  of  7  is  calculated  as: 

7=2*74-mod(774,2). 


If  the  value  of  7  is  greater  than  1  or  less  than  the  number  of  columns  for  the  velocity  fields, 
then  the  relaxation  coefficients  are  computed  by: 

R(774,l,774)  =  S2TH  *  (ETA (7,7)  +  ETA(7+1,7))  +  SDL  *  AMASS (7,7)  *  VICEC(7,7) 

R(774,2,774)  =  (ETA(7,7+1)  +  ETA(7,7)  +  ZETA(7,7+1)  +  ZETA(7,7)) 

*  THETA/(2.0  *  DELTXU (7)  *  DELTXU(T))  +  AMASS(7,7) 

*  UICEC(7,7)  *  THETA/(2.0  *  DELTXU (7)) 

R(774,3,774)  =  (ETA(7+ 1,7+1)  +  ETA(7+1,7)  +  ZETA(7+1,7+1)  +  ZETA(7+1,7)) 

*  THETA/(2.0  *  DELTXU(T)  *  DELTXU (7))  -  AMASS(7,7) 

*  UICEC(7,7)  *  THETA/(2.0  *  DELTXU(T)) 

R(774,4,774)  =  S2TH  *  (ETA(7+1,7+1)  +  ETA(7,7+1))  -  AMASS(7,7)  *  VICEC(7,7)  *  SDL. 


The  S1TH  term  is  redefined  in  spherical  coordinates  as  follows: 

S1TH  =  THETA  *  DELIN/4.0/DELTXU(7) 

R(774,5,774)  =  S1TH  *  ZETA(7,7) 

R(774,6,774)  =  -  S1TH  *  (2.0  *  (ETA(7,7)  -  ETA(7+1,7))+ZETA(7+1,7)  -  ZETA(7,7)) 
R(774,7,774)  =  -  S1TH  *  ZETA(7+1 ,7) 

R(774,8,774)  =  -  S1TH  *  (2.0  *  (ETA(7,7+1)  -  ETA(7,7))+ZETA(7,7)  -  ZETA(7,7+1)) 
R(774,9,774)  =  S1TH  *  (ZETA(7+1,7)+ZETA(7,7+1)  -  ZETA(7,7)  -  ZETA(7+ 1,7+1)) 

R(774, 10,774)  =  S1TH  *  (2.0  *  (ETA(7+1,7+1)  -  ETA(7+1,7))  +  ZETA(7+1,7) 

-  ZETA(7+1,7+1))) 

R(774,l  1,774)  =  -  S1TH  *  ZETA(7,7+1) 

R(774,12,774)  =  S1TH  *  (2.0  *  (ETA(7,7+1)  -  ETA(7+1,7+1))  +  (ZETA(7+ 1,7+1) 

-  ZETA(7,7+1))) 

R(774,13,774)  =  S1TH  *  ZETA(7+1,7+1) 

R(774,14,774)  =  S2TH  *  (ETA(7,7)  +  ETA(7+1,7)  +  ZETA(7,7)  +  ZETA(7+1,7)) 

+  SDL  *  AMASS (7,7)  *  VICEC(7,7) 

R(774, 15,774)  =  (ETA(7,7)  +  ETA(7,7+1)  *  THETA/(2.0  *  DELTXU(7) 

*  DELTXU(T))  +  AMASS (7,7)  *  UICEC(7,7)  *  THETA/(2.0 

*  DELTXU(7)) 

R(774, 16,774)  =  (ETA(7+ 1,7+1)  +  ETA(7+1,7)  *  THETA/(2.0  *  DELTXU (7) 

*  DELTXU(T))  -  AMASS (7,7)  *  UICEC(7,7)  *  THETA/(2.0 

*  DELTXU(7)) 

R(774, 17,774)  =  S2TH  *  (ETA(7+1,7+1)  +  ETA(7,7+1)  +  ZETA(7+1,7+1) 

+  ZETA(7,7+1))  -  AMASS(7,7)  *  VICEC(7,7)  *  SDL 

DRAG1  =  (DRAGA(7,7)  +  R(774,9,774)  *  THETA 
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DRAG2  =  (DRAGA(/,7)  -  R(/74,9,X4)  *  THETA 

R(/74, 1 8,X4)  =  THETA  *  C0EFIY(/,7)  *  DRAG1 

R(/74,19,X4)  =  C0EFIX(/,7)  *  UVM (7,7)/ 

(1.0+DRAG1  *  DRAG2  *  C0EFIX(/,7)  *  C0EFIY(/,7)) 

R(/74,20,X4)  =  THETA  *  C0EFIX(/,7)  *  DRAG2 

R(/74,21,X4)  =  COEFIY(/,7)  *  UVM(/,7)/ 

(1.0+DRAG1  *  DRAG2  *  C0EFIX(/,7)  *  C0EFIY(/,7)). 


Once  all  of  the  relaxation  coefficients  are  calculated,  the  relaxation  can  be  done  directly.  First, 
UICE  and  VICE  are  loaded  into  U4  and  V4,  respectively: 

U4(/74,£4)  =  UICE(/,7,1) 

V4(/74,X4)  =  VICE(/,7,1) 


The  iterative  process  begins  here  by  performing  a  relaxation  on  grid  1: 


FX3 (/)  =  FXM(/,1)  +  U4(/-l,2)  *  R(/,2,l)  +  U4(/,2)  *  R(/,3,l)  + 

+  U4(/-M4X,3)  *  R(/,l,l)  +  U4(/,3)  *  R(/,4,l)  +  V4(/-l,2)  *  R(/,8,l) 

+  V4(/,2)  *  R(/,10,l)  +  V4(/-M4X,3)  *  R(/,6,l)  +  V4(/,3)  *  R(/,12,l) 

+  V4(/-M4XP,4)  *  R(/,5,l)  +  V4(/,4)  *  R(/,13,l)  +  V4(/-l,4)  *  R(/,l  1,1) 
+  V4(/-M4X,4)  *  R(/,7,l), 

FY3 (/)  =  FYM(/,1)  +  V4(/-l,2)  *  R(/,15,l)  +  V4(/,2)  *  R(/,16,l) 

+  V4(/-M4X,3)  *  R(/,14,l)  +  V4(/,3)  *  R(/,17,l)  -  U4(/-l,2)  *  R(/,8,l) 

-  U4(/,2)  *  R(/,10,l)  -  U4(/-M4X,3)  *  R(/,6,l)  -  U4(/,3)  *  R(/,12,l) 

+  U4(/-M4XP,4)  *  R(/,5,l)  +  U4(/,4)  *  R(/,13,l)  +  U4(/-l,4)  *  R(/,l  1,1) 
+  U4(/-M4X,4)  *  R(/,7,l), 

where  /  =  M4XP  to  M1STOP. 

The  arrays  for  the  velocity  corrections  are  initialized  to  0: 


U4C<7)  =  0, 
V4C(7)  =  0, 


where  /  =  1  to  M4X. 


U4C(7)  =  0, 

V4C(7)  =  0, 

where  /=MlSTOP  to  M4XY. 


The  velocity  corrections  are  then  calculated: 

U4C(7)  =  ((FX3(/)+FY3(/)  *  R(/,18,l))  *  R(/,19,l)  -  U4(/,l))  *  WFA 
V4C (/)  =  ((F Y 3 (/)  -  FX3 (/)  *  R(/,20,l))  *  R(/,21,l)  -  V4(/,l))  *  WFA, 


where  7=M4XP  to  Ml  STOP. 
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The  velocity  corrections  are  then  added  to  the  U4  and  V4  values  for  each  I  =  M4XP  to  Ml  STOP: 
U4(/,l)  =  U4(/,l)  +  U4C(7) 

V4(/,l)  =  V4(/,l)  +  V4C(7) 

The  CSU  QMAX  is  called  to  the  find  the  largest  correction  for  both  U4C  and  V4C.  The  values 
are  returned  as  Sll  and  S21,  where  Sll  is  the  largest  correction  of  the  U4C  array  and  S21  is  the 
largest  correction  of  the  S21  array. 


Once  the  relaxation  on  grid  1  is  complete,  the  relaxation  is  performed  on  grid  2: 

FX3(7)  =  FXM(/,2)  +  U4(/,l)  *  R(/,2,2)  +  U4(/+l,l)  *  R(/,3,2) 

+  U4(/-M4X,4)  *  R(/,l,2)  +  U4(/,4)  *  R(7,4,2)  +  V4(/,l)  *  R(/,8,2) 

+  V4(/+l,l)  *  R(/,10,2)  +  V4(/-M4X,4)  *  R(/,6,2)  +  V4(7,4)  *  R(/,12,2) 

+  V4(/-M4XP,3)  *  R(/,5,2)  +  V4(7+l,3)  *  R(/,13,2)  +  V4(/,3)  *  R(/,ll,2) 

+  V4(/-M4XM,3)  *  R(/,7,2) 

FY3(7)  =  FYM(/,2)  +  V4(/,l)  *  R(/,15,2)  +  V4(/+l,l)  *  R(/,16,2) 

+  V4(/-M4X,4)  *  R(/,14,2)  +  V4(/,4)  *  R(/,17,2)  -  U4(/,l)  *  R(/,8,2) 

-  U4(/+l,l)  *  R(/,10,2)  -  U4(/-M4X,4)  *  R(/,6,2)  -  U4(/,4)  *  R(/,12,2) 

+  U4(/-M4X,3)  *  R(/,5,2)  +  U4(/+l,3)  *  R(/,13,2)  +  U4(7,3)  *  R(/,l  1,2) 

+  U4(/-M4XM,3)  *  R(/,7,2), 

where  7=M4X  to  M2STOP. 

The  U4C  and  V4C  array  are  cleaned  up  by: 

U4C(M1ST0P)  =  0, 

V4C(M1ST0P)  =  0. 

The  velocity  corrections  for  grid  2  are  then  calculated: 

U4C(7)  =  ((FX3(7)+FY3(7)  *  R(/,18,2»  *  R(/,19,2)  -  U4(/,2))  *  WFA, 

V4C(7)  =  ((FY3(7)  -  FX3(7)  *  R(/,20,2))  *  R(/,21,2)  -  V4(/,2))  *  WFA, 

where  7  =  M4X  to  M2STOP. 

The  velocity  corrections  for  grid  2  are  then  added  to  the  U4  and  V4  values  for  each  7  =  M4X 
to  M2STOP: 

U4(7,2)  =  U4(7,2)  +  U4C(7) 

V4(7,2)  =  V4(7,2)  +  V4C(7) 

The  CSU  QMAX  is  called  to  the  find  the  largest  correction  for  both  U4C  and  V4C.  The  values 
are  returned  as  S12  and  S22. 

Once  the  relaxation  on  grid  2  is  complete,  the  relaxation  is  performed  on  grid  3: 

FX3(7)  =  FXM(7,3)  +  U4(7-l,4)  *  R(7,2,3)  +  U4(7,4)  *  R(7,3,3) 

+  U4(7,l)  *  R(7,l,3)  +  U4(7+M4X,1)  *  R(7,4,3)  +  V4(7-l,4)  *  R(7,8,3) 

+  V4(7,4)  *  R(7,10,3)  +  V4(7,l)  *  R(7,6,3)  +  V4(7+M4X,1)  *  R(7,12,3) 

+  V4(7-l,2)  *  R(7,5,3)  +  V4(7+M4X,2)  *  R(7,13,3) 

+  V4(7+M4XM,2)  *  R(7,l  1,3)  +  V4(7,2)  *  R(7,7,3) 
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FY3<7)  =  FYM(/,3)  +  V4(/-l,4)  *  R(/,15,3)  +  V4(/,4)  *  R(/,16,3) 

+  V4(/,l)  *  R(/,14,3)  +  V4(/+M4X,1)  *  R(/,17,3)  -  U4(/-l,4)  *  R(/,8,3) 

-  U4(/,4)  *  R(/,10,3)  -  U4(/,l)  *  R(/,6,3)  -  U4(/+M4X,1)  *  R(/,12,3) 

+  U4(/-l,2)  *  R(/,5,3)  +  U4(/+M4X,2)  *  R(/,13,3) 

+  U4(/+M4XM,2)  *  R(/,l  1,3)  +  U4(/,2)  *  R(/,7,3), 

where  /  =  M4X  to  M3ST0P. 

The  U4C  and  V4C  array  are  cleaned  up  by: 

U4C(7)  =  0, 

V4C(7)  =  0, 

where  /  =  M3STOP  to  M2STOP. 

The  velocity  corrections  for  grid  3  are  then  calculated: 

U4C(7)  =  ((FX3(7)  +  FY3(7)  *  R(/,18,3))  *  R(/,19,3)  -  U4(/,3))  *  WFA,  i 

V4C (/)  =  ((FY3(7)  -  FX3(7)  *  R(/,20,3))  *  R(/,21,3)  -  V4(/,3))  *  WFA,  | 

where  I  =  2  to  M3STOP. 

The  velocity  corrections  for  grid  3  are  then  added  to  the  U4  and  V4  values  for  each  /  =  2  to 
M3STOP: 

U4(/,3)  =  U4(/,3)  +  U4C(/) 

V4(/,3)  =  V4(/,3)  +  V4C(7) 

The  CSU  QMAX  is  called  to  the  find  the  largest  correction  for  both  U4C  and  V4C.  The  values 
are  returned  as  S13  and  S23. 

When  the  relaxation  on  grid  3  is  complete,  the  relaxation  is  performed  on  grid  4: 


FX3(7)  =  FXM(/,4)  +  U4(/,3)  *  R(/,2,4)  +  U4(/+l,3)  *  R(/,3,4) 

+  U4(/,2)  *  R(/,l,4)  +  U4(/+M4X,2)  *  R(/,4,4)  +  V4(/,3)  *  R(/,8,4) 

+  V4(/+l,3)  *  R(/,10,4)  +  V4(/,2)  *  R(/,6,4)  +  V4(/+M4X,2)  *  R(/,12,4) 

+  V4(/,l)  *  R(/,5,4)  +  V4(/+M4XP,  1 )  *  R(/,13,4)  +  V4(/+M4X,1)  *  R(/,l  1,4) 
+  V4(/+l,l)  *  R(/,7,4) 

FY3(7)  =  FYM(/,4)  +  V4(/,3)  *  R(/,15,4)  +  V4(/+l,3)  *  R(/,16,4) 

+  V4(/,2)  *  R(/,14,4)  +  V4(/+M4X,2)  *  R(/,17,4)  -  U4(/,3)  *  R(/,8,4) 

-  U4(/+l,3)  *  R(/,10,4)  -  U4(/,2)  *  R(/,6,4)  -  U4(/+M4X,2)  *  R(/,12,4) 

+  U4(/,l)  *  R(/,5,4)  +  U4(/+M4XP,1)  *  R(/,13,4) 

+  U4(/+M4X,1)  *  R(/,ll,4)  +  U4(/+l,)  *  R(/,7,4), 

where  /  =  1  to  M4STOP. 

The  U4C  and  V4C  array  are  cleaned  up  by: 


U4C(M3STOP)  =  0, 
V4C(M3STOP)  =  0. 
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The  velocity  corrections  for  grid  4  are  then  calculated: 

U4C(7)  =  ((FX3(7)+FY3(7)  *  R(7,18,4»  *  R(7,19,4)  -  U4(/,4»  *  WFA, 

V4C(7)  =  ((FY3(7)  -  FX3 (7)  *  R(7,20,4))  *  R(7,21,4)  -  V4(7,4))  *  WFA, 

where  /  =  1  to  M4ST0P. 

The  velocity  corrections  for  grid  4  are  then  added  to  the  U4  and  V4  values  for  each  /  =  1  to 
M4STOP: 

U4(/,3)  =  U4(/,3)  +  U4C(7) 

V4(7,3)  =  V4(/,3)  +  V4C(7) 

The  CSU  QMAX  is  called  to  the  find  the  largest  correction  for  both  U4C  and  V4C.  The  values 
are  returned  as  S14  and  S24. 

The  iteration  loop  counter  ICOUNT  is  incremented.  If  the  counter  is  <  2000,  then  the  maximum 
velocity  correction  from  all  four  grids  is  determined.  If  this  value  is  less  than  or  equal  to  the 
maximum  error  allowed  in  the  relation  scheme  (ERROR),  then  the  values  of  UICE  and  VICE  are 
reloaded;  otherwise,  the  iterative  process  continues  by  relaxing  on  all  four  grids  again.  If  the 
number  of  iterations  exceeds  2000,  then  the  convergence  fails  and  a  message  is  sent  to  standard 
output.  The  values  of  UICE  and  VICE  are  reloaded  as 

DO  K4  =  1,  4 

DO  IJ4  =  1 ,  M4XY 
J4  =  IJ4/M4X  +  1 
14  =  IJ4  -  (74  -  1)  *  M4X 
J  =  2  *  J4  -  (4-K4)/2 

IF  (.NOT.  (. J  .LE.  1  .OR.  J  .GE.  JMTM1))  THEN 
7=2  *74-MOD(X4,2) 

IF  (.NOT.  (7  .LE.  1  .OR.  7  .GE.  IMTM1)  THEN 
UICE(7,i,l)  =  U4(7/4,X4) 

VICE(7,J,1)  =  V4(7/4,£4) 

END  IF 
END  IF 
CONTINUE 
CONTINUE. 

The  number  of  iterations  and  the  maximum  error  for  U  and  V  are  written  to  standard  output. 

3 .3.3.3  CSU  QMAX 

The  CSU  QMAX  finds  the  maximum  value  of  an  array. 

3. 3. 3. 3.1  CSU  QMAX  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3. 3. 3. 3.2  CSU  QMAX  Design 

Input  Data  Elements: 

U  Input  array  #1 

V  Input  array  #2 
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Output  Data  Elements: 

Sll  Maximum  value  in  array  #1 

S21  Maximum  value  in  array  #2 

U  Input  array  #1 

V  Input  array  #2 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1.2. 

stored  in  Hie  qmax.par 

M4X  IMT/2;  =  180 

M4Y  JMT/2;  =  180 

M4XY  M4X  *  M4Y;  =  32,400 

< 

Data  element  design  information  is  provided  in  Sec.  4.0. 

I 

f 

Local  Data  Elements:  j 

N  index  counter  integer  j 

Logic  Flow: 

This  CSU  is  called  by  the  RELAX  CSU. 

The  initial  maximum  values  are  set  to  the  first  element  of  each  array: 

U(N)  =  abs(U(N)) 

V(N)  =  abs(V(N)). 

The  initial  maximum  values  are  set  to  the  first  element  of  each  array: 

S11  =  U(1) 

S21  =  V(l). 

The  maximum  value  of  each  array  is  then  found  and  control  is  returned  the  RELAX  CSU: 

Sll  =max(Sll,U(N)) 

S21  =  max(S21,V(N)). 

3.3.4  CSC  Ice  Rheology 

The  Ice  Rheology  CSC  calculates  the  ice  stress  that  is  directly  related  to  the  ice  strength  anc 
strain  rates. 

3.3.4.1  CSU  PLAST  Computer  Software  Unit 

The  purpose  of  the  PLAST  CSU  is  to  calculate  strain  rates,  divergence,  and  viscosities  baser 
on  plastic  flow  specified  by  an  elliptic  yield  curve. 

3. 3.4. 1.1  CSU  PLAST  Design  Specification/Constraints  -  There  are  no  known  constraints. 
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3.3.4. 1.2  CSU  PLAST  Design 
Input  Data  Elements: 

ECCEN  ratio  of  the  principal  axes  of  the  plastic  yield  ellipse 

ETA  nonlinear  shear  viscosity 

HEFFM  thermodynamic  land/sea  mask 

PRESS  ice  strength 

UICE  x  component  of  the  ice  drift 

VICE  y  component  of  the  ice  drift 

/STEP/ 

DELTAX  x  (longitude)  grid  spacing  (deg) 

DELTAY  y  (latitude)  grid  spacing  (deg) 

/STEPSP/ 

DELTXA  x  (longitude)  grid  spacing  for  thermodynamic  fields  (m) 
DELTYA  y  (latitude)  grid  spacing  for  thermodynamic  fields  (m) 

Output  Data  Elements: 

ZETA  nonlinear  bulk  viscosity 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1.2. 


Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements: 

DELT 

used  in  calculating  ETA  and  ZETA 

real 

DELT1 

square  root  of  DELT 

real 

Ell 

xx  strain  component 

real 

E12 

xy  strain  component 

real 

E22 

yy  strain  component 

real 

ECM2 

reciprocal  of  ECCEN2 

real 

GMIN 

minimum  value  of  DELT1  (1.0  x  10-20) 

real 

I 

index  counter 

integer 

J 

index  counter 

integer 

ZMAX 

maximum  allowable  bulk  viscosity  value 

real 

ZMIN 

Algorithms: 

minimum  allowable  bulk  viscosity  value  (4.0  x  108) 

real 

Strain  rates,  averaged  over  the  grid  cell,  are  estimated  for  use  in  solving  the  momentum 
equations.  The  xx  (sn)»  yy  (^22)’  ancl  xy  12)  strain  components  are  obtained  by  using  the 
following  equations: 

11) i  +  1/2,  j  + 1/2  =  Yh  +  l*J  +  1  +  u‘ +  ~  Ui’  J+1~  “*»/]’ 

(s 22)  i + 1/2,  j + 1/2 =  2h  ^V|  +  l’J + 1  +  Vf’  7  + 1 +  v«  + 1  j  +  v*y]» 

12)  i  +  1/2,  j  +1/2  -  ^  +  1,;  +  1  +  ui>j  +  1  ~  ui+lJ- uiJ\ 

+  7 T  [y/+  1,7+  1  +  vi+  lj~  vi,  j+1-  ViJ ]  , 


(16) 
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where  h  is  either  the  x  or  y  grid  spacing,  u  is  the  x  component  of  the  ice  drift,  and  v  is  the  y 
component  of  the  ice  drift. 

The  nonlinear  bulk  (Q  and  shear  (r|)  viscosities  are  calculated  using  the  strain  rates  from 
above,  the  pressure  term  (P/2),  and  the  ratio  of  the  principal  axes  of  the  ellipse  (e).  These  terms 
are  stated  as 


A  = 


.2  .2 

£ll+£22 


)(l  +  l/e2)  +  4e~2£j2+  2£jj  e^l  ~  1  'A 


Vi 


c  =  P/2A , 

T|  =  X^/e1 .  (17) 

I 

Logic  Flow: 

The  PLAST  CSU  is  called  by  the  FORM  CSU  to  solve  the  equations  for  the  strain  rates, 
viscosities,  and  divergence. 


First,  the  values  necessary  for  solving  the  viscosity  equations  are  calculated  by: 

ECM2  =  1.0/(ECCEN2), 

where  ECCEN  is  the  ratio  of  the  principal  axes  of  the  plastic  yield  ellipse.  Then  the  constant  values 
for  the  minimum  allowable  bulk  viscosity  (ZMIN)  and  the  minimum  allowable  value  of  DELT1  are 
set: 


ZMIN  =  4.0*  108 
GMIN  =  1.0  *  10-20 

Next,  the  xx  (Ell),  yy  (E22),  and  xy  (E12)  strain  rates  for  each  x  (7)  and  y  (J)  component  o: 
the  velocity  fields  are  evaluated  by  averaging  the  x  and  y  components  of  the  ice  drift  over  the  gric 
cell.  The  strain  rates  are  used  in  calculating  the  nonlinear  viscosities: 

El  1(7,7)=  (0.5/DELTAX) 

*  (UICE(7,7,1)  +  UICE(7,7-1,1)  -  UICE(7- 1,7,1)  -  UICE(7-1, 7-1,1)), 

E22(7,7)  =  (0.5/DELTAY) 

*  (VICE(7,7,1)  +  VICE(7- 1,7,1)  -  VICE(7, 7-1,1)  -  VICE(7-1,7-1,1)), 

El  2(7,7)  =  (0.25/DELTAY) 

*  (UICE(7,7,1)  +  UICE(7- 1,7,1)  -  UICE(7,7-1,1)  -  UICE(7-1,7-1,1)), 

+  (0.25/DELTAX) 

*  (VICE(7,7,1)  +  VICE(7, 7-1,1)  -  VICE(7-1,7,1)  -  VICE(7-1,7-1,1)), 

where  DELTAX  is  the  x  (longitude)  grid  spacing  in  degrees,  DELTAY  is  the  y  (latitude)  grl 
spacing  in  degrees,  UICE  is  the  x  component  of  the  ice  drift,  and  VICE  is  the  y  component  of  th 
ice  drift.  Ell,  E22,  and  E12  are  then  redefined  in  the  spherical  coordinate  system  by: 

El  1(7,7)  =  El  1(7,7)  *  DELT AX/DELTX A(7) , 

E22(7,7)  =  E22(7,7)  *  DELTAY/DELTYA, 
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El  2(7,7)  =  ( 1 .0/2.0/DELTY  A) 

*  (UICE(7,7,1)  +  UICE(/- 1,7,1) -  UICE(/,/-l,l)  - UICE(/-l,7-l,l))/2.0 

+  (1.0/2.0/DELTXA) 

*  (VICE(/,7,1)  +  VICE(/,7-l,l)  -  VICE(7- 1,7,1)  -  VICE(/-l,7-l,l))/2.0, 

where  DELTXA  and  DELTYA  are  the  x  and  y  grid  spacings,  respectively,  for  thermodynamic 
fields. 

After  setting  up  the  strain  rates,  the  nonlinear  bulk  viscosity  (ZETA)  for  each  velocity  field  is 
calculated: 

DELT  =  (El  1(7,7)  **  2  +  E22(7,7)  **  2)  *  (1.0  +  ECM2)  +  4.0  *  ECM2  *  E12(7,7)  **  2 

+  2.0  *  El  1(7,7)  *  E22(7,7)  *  (1.0-ECM2), 

DELT1  =  sqrt(DELT), 

DELT1  =MAX(GMIN,  DELT1), 

ZETA(7,7)  =  0.5  *  PRESS(7,7)/DELT1), 

where  PRESS  is  the  ice  strength.  Note  that  ZETA  cannot  be  less  than  1.0  x  10-20. 

The  minimum  and  maximum  values  of  ZETA  are  set  to: 

ZMIN  =  4.0  *  108, 

ZMAX  =  ((5.0  *  1012V(2.0  *  104))  *  PRESS(7,7). 

The  value  of  ZMAX  is  based  on  the  pressure  for  each  thermodynamic  field.  The  value  of  ZETA 
must  be  within  these  minimum  and  maximum  values. 

The  nonlinear  shear  viscosity  (ETA)  can  then  be  calculated  for  each  thermodynamic  field: 

ETA(7,7)  =  ECM2  *  ZETA(7,7). 

The  strain  rates  are  zeroed  out  at  the  land/sea  boundary  points  for  the  thermodynamic  fields: 

El  1  (7,7)  =  El  1  (7,7)  *  HEFFM(7,7) 

E22(7,7)  =  E22(7,7)  *  HEFFM(7,7) 

El 2(7,7)  =  El 2(7,7)  *  HEFFM(7,7) 

The  strain  rates  are  returned  to  the  FORM  CSU. 

3.3.5  CSC  Ice  Thickness  Distribution 

The  Ice  Thickness  Distribution  CSC  accounts  for  the  changes  in  ice  thickness  and  concentration 
due  to  growth,  advection,  and  deformation  of  the  ice.  Only  thick  and  thin  ice  are  considered  for 
these  calculations.  The  deformation  of  thick  ice  can  create  thin  ice  by  divergence  while  the  thin  ice 
can  be  removed  by  convergence.  Both  growth  and  melt  affect  the  amount  of  thick  and  thin  ice.  While 
growth  can  significantly  decrease  the  amount  of  thin  ice  and  increase  the  amount  of  thick  ice, 
melting  can  add  to  the  amount  of  thin  ice  or  create  open  water  by  decreasing  the  thick  ice.  The 
advection  of  the  ice  thickness  and  compactness  due  to  explicit  timestepping  is  done  in  the  ADVECT 
CSU.  The  DIFFUS  CSU  is  used  to  determine  the  diffusion  of  the  ice  thickness,  compactness,  and 
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concentration  by  using  the  explicit  forward  time  differencing.  The  negative  ice  to  be  melted  is 
calculated  in  the  RNEGT  CSU.  The  changes  of  thickness  and  compactness  for  each  timestep  are 
then  estimated  in  the  GROWTH  CSU. 


3.3.5.1  CSU  ADVECT 

The  ADVECT  CSU  does  the  explicit  timestepping  for  the  advection  of  the  ice  thickness  and 
compactness  within  the  ice  model. 

3. 3. 5. 1.1  CSU  ADVECT  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.3.5. 1.2  CSU  ADVECT  Design 

Input  Data  Elements: 


DIFF1 

harmonic  diffusion  constant 

HEFF 

mean  ice  thickness  per  grid  cell  or  ice  mass  per  grid  area 

HEFFM 

thermodynamic  land/sea  mask 

LAD 

type  of  time  finite  difference  (leapfrog  or  backward  Euler) 

UICEC 

intermediate  x  component  of  the  ice  drift 

VICEC 

intermediate  y  component  of  the  ice  drift 

/STEP/ 

DELTAT 

timestep  (s) 

DELTAX 

x  (longitude)  grid  spacing  (deg) 

DELTAY 

y  (latitude)  grid  spacing  (deg) 

/STEPSP/ 

DELTXA 

x  (longitude)  grid  spacing  for  thermodynamic  fields  (m) 

DELTYA 

y  (latitude)  grid  spacing  for  thermodynamic  fields  (m) 

Output  Data  Elements: 

HEFF  mean  ice  thickness  per  grid  cell  or  ice  mass  per  grid  area 

/DIFFU3/ 

DIFF3  harmonic  diffusion  constant 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements 
DELTT 

timestep  according  to  the  type  of  time  finite  difference 

real 

DELTX 

grid  spacing  in  x  direction 

real 

DELTY 

grid  spacing  in  y  direction 

real 

DIFF2 

harmonic  diffusion  constant 

real 

I 

index  counter 

integer 

J 

index  counter 

integer 

K3 

index  of  time  level 

integer 
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KD 

loop  index  for  diffusion  (2) 

integer 

LL 

type  of  time  finite  difference 

integer 

RADIAN 

degrees  per  radian  (57.29578°) 

real 

RADIUS 

radius  of  the  Earth  (6370.0  x  103  m) 

real 

Algorithms: 

The  advection  terms  are  calculated  by  using  the  following: 


;  +  l/2J+l/2 


1 

Ah 


+ 1 12J+  l/2  +  h  i+3/2,j  + 1 
hi  +  l/2j+ll2  +  hi-l/2j+l/2 


/  2 i+lj+l  u  i+ 1 J 

)(“j-lrf+l+“i-v)  ’ 


(18) 


where  h  is  the  x  (longitude)  grid  spacing  and  u  is  the  x  component  of  the  ice-drift  velocity.  Solving 
for  ( vh)y ,  where  h  is  the  y  (latitude)  grid  spacing  and  v  is  the  y  component  of  the  ice-drift  velocity, 
is  done  similarly,  but 


—  tan (lat)  *  h  *  v/r  (19) 

is  an  extra  term  needed  to  transform  from  the  Cartesian  to  spherical  coordinates,  lat  is  the  latitude, 
h  is  the  ice  thickness  or  concentration,  v  is  the  ice  drift  along  the  y  (latitude)  axis,  and  r  is  the 
radius  of  the  Earth. 

Data  Conversions: 

The  grid  spacing,  in  degrees,  of  the  latitudes  must  be  converted  to  radians. 

Logic  Flow: 

The  ICEMDL  CSU  calls  the  ADVECT  CSU. 

Two  types  of  time  finite  differences  are  allowed — backward  Euler  or  leapfrog.  For  this  version 
of  the  ice  model,  the  backward  Euler  method  is  selected.  For  the  backward  Euler  method,  the 
timestep  based  on  the  type  of  time  finite  difference  is  set  to  the  timestep  (seconds)  for  the  model 
run.  If  the  leapfrog  method  were  selected,  the  timestep  based  on  the  type  of  time  finite  difference 
would  be  two  times  the  timestep  (seconds)  for  the  model  run.  The  timestep  index  ( K3 )  is  set  to  3 
for  the  leapfrog  method  and  2  for  the  backward  Euler  method. 

The  mean  ice  thickness  or  ice  mass  per  grid  area  (HEFF)  is  reordered  so  that  the  third  time 
level  is  equal  to  the  second  time  level  and  the  second  time  level  is  equal  to  the  first  for  each 
thermodynamic  field: 

HEFF(/,y,3)  =  HEFF(/,/,2) 

HEFF(/,y,2)  =  HEFF(/,7, 1 ) 

Next,  the  process  of  calculating  the  standard  conservative  advection  begins  for  each  velocity 
field.  First  DELTX  and  DELTY  are  defined  in  the  spherical  coordinates  with  DELTX  dependent 
on  the  latitude: 
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DELTX  =  DELTT/(4.0  *  DELTAX), 

DELTY  =  DELTT/(4.0  *  DELTAY), 

where  DELTT  is  the  timestep  according  to  the  type  of  time  finite  difference,  DELTXA  is  the  x 
(longitude)  grid  spacing  in  meters,  DELTYA  is  the  y  (latitude)  grid  spacing  in  meters,  and  J  is  the 
index  of  the  velocity  field. 

Then  the  advection  term  for  all  velocity  fields  at  the  first  time  level  is  calculated  as: 

HEFF(/+1, 7+1,1)  =  HEFF(/+1,7+1,X3)  -  DELTX 

*  (HEFF(/+ 1 ,7+ 1 ,2)  +  HEFF(/+2,7+ 1,2))  *  (UICEC(/+ 1,7+1)  +  UICEC(/+1,7)) 

-  (HEFF(/+1,7+1,2)  +  HEFF(/,7+l,2))  *  (UICEC(/,7+l)  +  UICEC(/,7))) 

-  DELTY  *  ((HEFF(/+1 ,7+1 ,2)  +  HEFF(/+l,7+2,2)) 

*  (VICEC (7,7+1)  +  VICEC(/+ 1,7+1))  -  (HEFF(/+1,7+1,2)  +  HEFF(/+1,7,2))  < 

*  (VICEC(/,7)  +  VICEC(/+1,7))), 

where  UICEC  is  the  intermediate  x  component  of  the  ice  drift  and  VICEC  is  the  intermediate  y 
component  of  the  ice  drift.  Due  to  the  transformation  to  spherical  coordinates  from  the  Cartesian 
coordinates,  the  following  extra  term  is  added: 

HEFF(/+1,7+1,1)  =  HEFF(/+1, 7+1,1) 

-  TAN(DELTAY  *  (7-MIDY-0.5)/RADIAN)  *  HEFF(/+1,7+1,2) 

*  (VICEC(/,7)  +  VICEC(/+1,7)  +  VICEC(/,7+l)  +  VICEC(/+l,7+l))/4.0/RADIUS, 

where  DELTAY  is  the  y  (latitude)  grid  spacing  in  degrees,  RADIAN  is  the  constant  to  convert  from 
degrees  to  radians,  VICEC  is  the  ice-drift  velocity  along  the  y  axis,  and  RADIUS  is  the  radius  ol 
the  Earth  in  meters. 

If  the  backward  Euler  time  finite  difference  is  selected,  the  value  of  HEFF  at  each  velocity  fielc 
is  corrected.  First,  the  value  of  HEFF  at  the  third  time  level  is  set  equal  to  the  value  of  HEFF  a 
the  second  time  level  and  the  value  of  HEFF  at  the  second  time  level  is  set  to  be  the  average  o: 
the  values  at  the  first  and  second  time  levels: 

HEFF(/,7,3)  =  HEFF(/,7,2) 

HEFF(/,7,2)  =  0.5  *  (HEFF(/,7, 1 )  +  HEFF(/,7,2)) 

The  values  of  LL  =  3  and  K3  =  3  are  initialized. 

The  standard  conservative  advection  process  is  repeated.  After  completion,  the  value  of  HEFI 
at  the  second  time  level  is  set  to  be  the  value  of  HEFF  at  the  third  time  level: 

HEFF(/,7,2)  =  HEFF(/,7,3) 

Then  HEFF  is  diffused  at  each  velocity  field  for  the  third  time  level.  Harmonic  and  biharmonii 
terms  are  computed.  First,  the  value  is  set  as: 

DIFF3(7)  =  DIFF1, 

where  DIFF3  is  the  biharmonic  diffusion  constant  at  each  y  of  the  thermodynamic  field  and  DIFF 
is  the  harmonic  diffusion  constant. 


Software  Test  Description  for  PIPS2.0 


53 


HEFF  is  recalculated  at  the  first  time  level  for  each  velocity  field  before  calling  the  DIFFUS 
CSU.  HEFF  is  redefined  as: 

HEFF(/,J,1)  =  HEFF(/,/,l)  +  DELTT  *  DIFF1  *  HEFFM(/,7) 

*  (-  TAN(DELTAY  *  (7-MIDY-0.5)/RADIAN)) 

*  (HEFF(/,y+l,3)  -  HEFF(/,7-l,3))/2.0/DELTYA/RADIUS. 

Then  the  DIFFUS  CSU  is  called  to  determine  the  diffusion  of  ice  thickness  or  concentration.  After 
returning  from  the  DIFFUS  CSU,  the  value  of  HEFF  is  recalculated  for  the  first  time  level  at  the 
thermodynamic  land/sea  mask  as 

HEFF(/,7,1)  =  (HEFF(/,y,l)  +  HEFF(/,/,3))  *  HEFFM(/,/). 

HEFF(/,7,3)  from  the  previous  call  to  the  DIFFUS  CSU  now  becomes  the  harmonic  term.  The 
values  of  the  biharmonic  term  DIFF2  and  the  harmonic  term  (DIFF3)  are  defined  in  spherical 
coordinates: 

DIFF2  =  -  DELTYA  *  DELTY A/DELTT 
DIFF3G 0  =  DIFF2 

Before  executing  the  DIFFUS  CSU,  HEFF  is  redefined  as: 

HEFF(/,y,  1 )  =  HEFF(/,J,1)  -  HEFFM (I,J) 

*  (-  TAN(DELTAY  *  (J-MIDY-0.5)/RADIAN)) 

*  (HEFF(/,7+l,3)  -  HEFF(/,y-l,3))/2.0  *  (DELT  AY/RADI  AN). 

The  DIFFUS  CSU  is  called  again  to  determine  the  diffusion  of  the  ice  thickness  or  concentration. 
After  executing  the  DIFFUS  CSU,  the  value  of  HEFF  is  recalculated  for  the  first  time  level  at  the 
thermodynamic  land/sea  mask  as: 

HEFF(/,y,l)  =  (HEFF(/,y,l)  +  HEFF(/,y,3))  *  HEFFM (I,J). 

Upon  completion  of  this  CSU,  flow  returns  to  the  main  program. 

3.3.5.2  CSU  DIFFUS 

The  purpose  of  the  DIFFUS  CSU  is  to  determine  the  diffusion  of  the  ice  thickness  and  concentration 
by  using  explicit  forward  time  differencing. 

3. 3. 5. 2.1  CSU  DIFFUS  Design  Specification/Constraints  —  There  are  no  known  constraints. 

3. 3. 5.2.2  CSU  DIFFUS  Design 
Input  Data  Elements: 

DIFF1  harmonic  diffusion  constant 

HEFF  mean  ice  thickness  or  concentration  per  grid  cell  on  input;  diffused 

value  on  output 

HEFFM  thermodynamic  land/sea  mask 

/DIFFU3/ 

DIFF3  harmonic  diffusion  constant 
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/STEP/ 

DELTAX  x  (longitude)  grid  spacing  (deg) 

DELTAY  y  (latitude)  grid  spacing  (deg) 

/STEPSP/ 

DELTXA  x  (longitude)  grid  spacing  for  thermodynamic  fields  (m) 

DELTYA  y  (latitude)  grid  spacing  for  thermodynamic  fields  (m) 

Output  Data  Elements: 

HEFF  mean  ice  thickness  or  concentration  per  grid  cell  on  input;  diffused 

value  on  output 


Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 
Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements: 
DELTXX 

x  grid  spacing  based  on  timestep,  grid  spacing. 

and  diffusion 

real 

DELTYY 

constant 

y  grid  spacing  based  on  timestep,  grid  spacing, 

and  diffusion 

real 

HEFF1  (IMT.JMT) 

constant 

diffused  ice  thickness  or  concentration 

real 

I 

index  counter 

integer 

J 

index  counter 

integer 

Logic  Flow: 

The  DIFFUS  CSU  is  called  by  the  ADVECT  CSU  to  determine  the  diffusion  of  ice  thickness 
or  concentration.  All  values  of  HEFF1  are  initialized  to  0.  Then,  DELTXX  and  DELTYY  are 
calculated  for  each  row  of  velocity  fields. 

DELTXX  =  DELTT  *  DIFF1/(DELTAX  *  *  2), 

DELTYY  =  DELTT  *  DIFF 1  /(DELT AY  *  *  2), 

where  DELTT  is  the  timestep,  DIFF1  is  the  harmonic  diffusion  constant,  DIFF3  is  the  diffusioi 
constant,  DELTXA  is  the  x  (longitude)  grid  spacing  in  degrees  and  DELTYA  is  the  y  (latitude 
grid  spacing  in  degrees.  Now  the  diffused  value  of  the  ice  thickness  or  concentration  i: 
calculated  by: 

HEFF1  (7,7)  =  DELTXX  *  ((HEFF(7+ 1,7,3)  -  HEFF(/,7,3))  *  HEFFM(7+1,7) 

-  (HEFF(/,7,3)  -  HEFF(7- 1,7,3))  *  HEFFM(/-1,7) 

+  DELTYY  *  ((HEFF(/,7+l,3)  -  HEFF(/,7,3))  *  HEFFM(/,7+l) 

-  (HEFF(/,7,3)  -  HEFF(/,7-l  ,3))  *  HEFFM(/,7-l)). 

The  values  of  each  thermodynamic  field  at  the  third  time  level  is  then  set  equal  to  the  diffused  value 
HEFF(/,7,3)  =  HEFF  1  (7,7) 
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3.3.5.3  CSU  GROWTH 

The  GROWTH  CSU  calculates  the  change  of  thickness  and  compactness  for  each  timestep. 

3. 3. 5. 3.1  CSU  GROWTH  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.3. 5. 3.2  CSU  GROWTH  Design 
Input  Data  Elements: 

A22  minimum  ice  concentration 

FO  growth  rate  of  thin  ice 

HDIFF1  net  growth  of  thin  ice 

HEFFM  land/sea  mask  for  thermodynamic  fields 

HO  minimum  ice  thickness 

OUT  land/sea  mask  including  outflow  conditions  for  thermodynamic  variables 

/GROW/ 

FHEFF  total  growth  rate  of  thick  ice 

/RSTRT/ 

AREA1  fraction  of  grid  cell  covered  by  ice 

HEFF  mean  ice  thickness  per  grid  cell 

/STEP/ 

DELTAT  timestep  (s) 

Output  Data  Elements: 

FO  growth  rate  of  thin  ice 

GAREA  change  of  areal  ice  extent  due  to  melting  and  freezing 

HCORR  additional  ice  to  be  melted  for  the  mixed-layer  balance 

HDIFF1  net  growth  of  thin  ice 

/GROW/ 

FHEFF  total  growth  rate  of  thick  ice 

/RSTRT/ 

AREA1  fraction  of  grid  cell  covered  by  ice 

HEFF  mean  ice  thickness  per  grid  cell 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 

Local  Data  Elements: 

GHEFF(IMT,JMT)  average  growth  tendency  for  the  timestep 
I  index  counter 

J  index  counter 


real 

integer 

integer 
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Logic  Flow: 

The  GROWTH  CSU  is  called  by  the  ICEMDL  CSU. 

Upon  entering  this  CSU,  the  growth  rates  of  thick  and  thin  ice  are  used  to  calculate  the  total 
change  of  ice  thickness  and  concentration  in  a  grid  cell.  To  do  this,  the  average  growth  tendency 
of  this  timestep  (GHEFF),  the  average  compactness  tendency  for  this  timestep  (GAREA),  the  net 
growth  of  thin  ice  for  this  timestep  (HDIFF1),  and  the  additional  ice  to  be  melted  for  the 
mixed-layer  balance  (HCORR)  are  calculated  first: 

GHEFF(7,7)  =  -DELTAT  *  FHEFF (7,7), 

GAREA (I,J)  =  DELTAT  *  FO (7,7), 

GHEFF (7,7)  =  -1.0  *  MIN(HEFF(7,7, 1 ),  GHEFF (7,7)), 

HDIFF 1  (7,7)  =  -DELTAT  *  HDIFF1  (7,7),  , 

GAREA(7,7)  =  MAX(0.0,  GAREA(7,7), 

HDIFF  1(7,7)  =  -1.0  *  MIN(HEFF(7,7, 1 ),  HDIFF1(7,7»,  < 

HCORR(7,7)  =  MIN(0.0,  GHEFF(7,7)), 

where  DELTAT  is  the  timestep  in  seconds,  FHEFF  is  total  growth  rate  of  thick  ice,  FO  is  the 
growth  rate  of  thin  ice,  and  HEFF  is  the  mean  ice  thickness  per  grid  cell. 

The  value  of  GAREA  must  not  be  less  than  0.  Then  the  change  of  areal  ice  extent  due  to 
melting  and  freezing  is  calculated  by: 

GAREA(7,7)  =  2.0  *  (1.0-AREA1(7,7,2))  *  GAREA(7,7)/HO  +  0.5 
*  HCORR(7,7)  *  AREA  1  (7,7,2)/HEFF(7,7, 1 )  +  0.00001), 

where  AREA1  is  the  fraction  of  the  grid  cell  covered  by  ice  and  HO  is  the  demarcation  betweer 
thick  and  thin  ice.  The  values  of  AREA1  and  HEFF  are  corrected  by: 

AREA  1  (7,7, 1 )  =  AREA  1  (7,7, 1 )  +  G  ARE  A(7,7) , 

HEFF(7,7,1)  =  HEFF(7,7,1)  +  GHEFF(7,7)  *  OUT(7,7), 

where  OUT  is  the  land/sea  mask  including  outflow  conditions  for  thermodynamic  variables.  The 
value  of  HCORR  is  recalculated  by: 

HCORR(7,7)  =  GHEFF(7,7)  -  DELTAT  *  FHEFF(7,7). 

The  RNEGT  CSU  is  called  to  remove  the  “negative”  ice  from  the  ice  thickness  field. 

The  outside  points  in  the  AREA1  and  HEFF  arrays  are  zeroed  out  by  multiplying  the  curren 
value  by  the  land/sea  mask  value  for  each  point 

AREA  1  (7,7,1)  =  AREA  1  (7,7,1)  *  HEFFM(7,7) 

HEFF(7,7,1)  =  HEFF(7,7,1)  *  HEFFM(7,7). 

If  there  is  no  ice  at  a  point,  then  the  value  of  AREA1  is  set  to  0.  This  new  value  of  AREA 
is  checked  again  to  make  sure  that  it  is  not  greater  than  1  and  is  not  less  than  the  minimun 
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compactness  allowed.  The  amount  of  additional  ice  to  be  melted  for  the  mixed-layer  balance  (HCORR) 
is  calculated  by: 

HCORR(/,7)  =  GHEFF (I,J)  -  DELTAT  *  FHEFF (I,J). 

The  values  of  total  growth  rate  of  the  thick  ice  (FHEFF)  and  the  growth  rate  of  thin  ice  (FO) 
are  stored. 

The  ice  thickness,  ice  concentration,  net  growth  rate  of  thin  ice,  growth  rate  of  thin  ice,  the 
negative  ice  to  be  melted,  and  the  total  growth  rate  of  thick  and  thin  ice  are  returned  to  the  main 
driving  CSU. 


3.3.5.4  CSU  RNEGT 

The  RNEGT  CSU  removes  the  negative  ice  from  the  model.  This  method  essentially  removes 
the  amount  of  thin  ice  due  to  converging  conditions. 

3.3. 5.4.1  CSU  RNEGT  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.3.5.4.2  CSU  RNEGT  Design 
Input  Data  Elements: 

FH  additional  ice  to  be  melted 

HEFF  mean  ice  thickness  per  grid  cell 

Output  Data  Elements: 

HEFF  mean  ice  thickness  per  grid  cell 


Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0 

Local  Data  Elements: 

I  index  counter 

J  index  counter 

Logic  Flow: 

The  RNEGT  CSU  is  called  by  the  GROWTH  CSU. 

The  melt  value  is  subtracted  from  the  ice  thickness  value  at  the  first  time  level  (HEFF)  and 
assigned  to  the  ice  thickness  value  at  the  third  time  level: 

HEFF(/,7,3)  =  HEFF(/,/,l)  -  FH  (/,./). 

The  ice  thickness  value  is  tested  to  make  certain  that  it  is  not  less  than  0.  The  new  value  of  HEFF 
is  returned  to  the  GROWTH  CSU. 


integer 

integer 
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3.3.6  CSC  Ice  Strength 

The  ice  strength,  as  a  function  of  ice  thickness  distribution,  is  calculated  in  this  CSU.  The 
strength  of  the  ice  depends  on  the  amount  of  thin  ice  and  is  calculated  in  the  FORM  CSU. 

3.3.6.1  CSU  XSUM 

The  purpose  of  the  XSUM  CSU  is  to  sum  every  value  of  the  input  array  into  a  scalar. 

3.3.6. 1.1  CSU  XSUM  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.3.6. 1.2  CSU  XSUM  Design 

Input  Data  Elements: 

HEFF  mean  ice  thickness  per  grid  cell 

I 

Output  Data  Elements:  \ 

SI  summation  of  mean  ice  thickness  values  j 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 

Local  Data  Elements: 

I  index  counter  integer 

J  index  counter  integer 

Algorithms: 

When  calculating  the  ice  thickness  SUM,  use 


ny  nx 

sum  =  X  X  hefFq  ,  (20; 

i=  1  ;=1 

where  HEFF  is  the  ice  thickness  per  grid  cell,  ny  is  the  maximum  number  of  columns  of  thermodynamii 
fields  allowed,  and  nx  is  the  maximum  number  of  rows  of  thermodynamic  fields  allowed. 

Logic  Flow: 

CSU  XSUM  is  called  by  the  ICEMDL  CSU  to  find  the  total  ice  in  the  basin. 

The  total  basin  ice  thickness  is  calculated  by  summing  the  mean  ice  thickness  for  all  thermodynami 
fields. 

The  summation  of  the  mean  ice  thickness  values  is  returned  to  the  main  driving  program,  i 

3 .3.6.2  CSU  FORM 

See  Sec.  3.3.3. 1  for  a  detailed  description  of  the  FORM  CSU. 
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3.3.7  CSC  Heat  Balance 

The  Heat  Balance  CSC  is  used  to  calculate  the  heat  budget.  The  HEAT  CSU  calculates  the  terms 
needed  and  the  BUDGET  CSU  uses  these  terms  to  compute  the  growth  rates  of  thick  and  thin  ice. 

3.3.7.1  CSU  HEAT 

The  HEAT  CSU  takes  the  FNMOC  forcing  and  calculates  terms  needed  for  the  heat  budget  balance. 

3.3. 7. 1.1  CSU  HEAT  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.3.7. 1.2  CSU  HEAT  Design 

Input  Data  Elements: 

FO  growth  rate  of  ice  on  open  water 

/COX2/ 

CFO  either  the  heat  above  the  freezing  temperature  in  terms  of  ice  thickness 

growth  rate  or  the  ice  thickness  growth  rate  in  open  water 
TFRZ  temperature  at  the  freezing  point  (Kelvin) 

TM1  mixed-layer  temperature  from  the  previous  timestep  (Kelvin) 

/OCEANS/ 

FW  oceanic  heat  flux 

/RAD/ 

FSH  atmospheric  forcing  -  solar  radiation 

/RFOR/ 

ES  NOGAPS  atmospheric  forcing  -  surface  vapor  pressure 

ESI  NOGAPS  atmospheric  forcing  -  sensible  heat  flux 

PS  NOGAPS  atmospheric  forcing  -  surface  air  pressure 

PS1  NOGAPS  atmospheric  forcing  -  total  heat  flux 

TAIR  NOGAPS  atmospheric  forcing  -  surface  air  temperature 

/RFOR2/ 

GAIRX  x  component  of  the  geostrophic  wind 

GAIRY  y  component  of  the  geostrophic  wind 

/RSTRT/ 

AREA1  fraction  of  the  grid  cell  covered  by  ice 

HEFF  mean  ice  thickness  per  grid  cell 

TICE  mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice-covered  water 

Output  Data  Elements: 

FO  growth  rate  of  ice  on  open  water 

HDIFF1  net  growth  of  thin  ice 

SHICE  total  ice  thickness 

/COX2/ 

CFO  either  the  heat  above  the  freezing  in  terms  of  ice  thickness  growth  rate  or  the 

ice  thickness  growth  rate  in  open  water 
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FW1 

GICE 

/GROW/ 

FHEFF 

/RFOR/ 

TAIR 

/RSTRT/ 

AREA1 

TICE 


heat  above  the  freezing  temperature 
ice  thickness  growth  rate  of  open  water 


total  growth  rate  of  thick  ice 


NOGAPS  atmospheric  forcing  -  surface  air  temperature 


fraction  of  the  grid  cell  covered  by  ice 

mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice-covered  water 


Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1.2. 
Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements 

A22 

AR(IMT,JMT) 

CFO_TMP 

CP 

EXCHNG 

FLO(IMTP  1 ,  JMTP 1 ) 

GX 

GY 

HICE(IMT,JMT) 

I 

IMT 

J 

JMT 

KOPEN 

QA(IMTP1,JMTP1) 

RLATNT 

TDAY 

TMIX(IMT,JMT) 

UG(IMT,JMT) 

ZMIX 


minimum  ice  concentration 

used  in  determining  the  amount  of  open  area 

temporary  storage  for  heat  flux 

conversion  factor  from  joules  to  calories  (4.19  x  106) 

frequency  of  exchanging  ice/ocean  data 

net  longwave  radiation 

x  component  of  the  geostrophic  wind  speed 

y  component  of  the  geostrophic  wind  speed 

average  ice  thickness  over  the  grid  cell 

index  counter 

total  number  of  T  grid  boxes  zonally  (360) 
index  counter 

total  number  of  T  grid  boxes  meridionally  (360) 
flag  for  open  water  or  ice-covered  water  calculations 
specific  humidity  at  the  ice  surface 
volumetric  heat  of  fusion  of  ice  (302  x  106  joules) 
timestep  to  exchange  ice-ocean  conditions 
mixed-layer  temperature 
magnitude  of  wind 
mixed-layer  thickness  (30  m) 


real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 

integer 

integer 

integer 

integer 

real 

real 

real 

real 

real 

real 


Algorithms: 

The  surface  heat  budget  (Parkinson  and  Washington  1979;  Manabe  et  al.  1979)  is  calculate 
using  the  following  equation: 


(1-a) Fs+FL+Dl  Ug  (Ta-TQ)  +  D2  Ug  [qa(Ta)-qs(T0)]-D3T0  +  (K/H)(Tw-T0)  =  0,  (21 


where  a  is  the  surface  albedo,  Tq  is  the  surface  temperature  of  ice,  Ta  is  the  air  temperature,  T 
is  the  water  temperature,  Ug  is  the  geostrophic  wind,  qa  is  the  specific  humidity  of  air,  qs  is  th 


I 
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specific  humidity  of  the  ice  surface,  Fs  is  the  incoming  short-wave  radiation,  Fi  is  the  incoming 
longwave  radiation,  D\  is  the  bulk  sensible  heat  transfer  coefficient,  £>2  is  the  bulk  latent  heat 
transfer  coefficient  (water  or  ice),  D3  is  the  Stefan-Boltzmann  constant  times  the  surface  emissivity, 
K  is  the  ice  conductivity,  and  77  is  the  ice  thickness. 

Logic  Flow: 

The  HEAT  CSU  is  called  by  the  ICEMDL  CSU. 

To  begin  the  process  of  solving  the  equation  for  the  surface  heat  budget,  the  x  (GX)  and  y  (GY) 
components  of  geostrophic  wind  speed  are  calculated  for  each  thermodynamic  field.  These  x  and 
y  components,  which  are  an  average  of  the  wind  speed  at  the  corners  of  the  grid  cell,  are  then  used 
to  find  the  magnitude  of  the  geostrophic  wind  (UG): 

GX  =  (GAIR X(I,J)  +  GAIRX(I+1,J)  +  GAIRX(7,7+1)  +  GAIRX(I+1,J+1))  *  0.25 

GY  =  (GAIRY (7,7)  +  GAIRY(I+1,J)  +  GAIRY(7,7+1)  +  GAIRY(I+1,J+1))  *  0.25 

UG (7,7)  =  sqrt(GX  *  *  2  +  GY  *  *  2). 

Next,  the  specific  humidity  at  the  ice  surface  (QA)  for  each  thermodynamic  field  is  calculated 
from  the  surface  vapor  pressure  and  the  surface  pressure  fields  of  atmospheric  forcing. 

QA (7,7)  =  (0.622  *  ES(7,7))/(PS(7,7)  -  ES(7,7)), 
where  ES  is  the  surface  vapor  pressure  and  PS  is  the  surface  air  pressure. 

The  net  long  wave  radiation  (FLO)  is  calculated  using  the  total  heat  flux  minus  the  sensible 
heat  flux  plus  the  solar  radiation.  The  sign  of  the  net  long  wave  radiation  is  then  changed  to  correct 
the  net  long  wave  error. 

FLO (7,7)  =  PS  1(7,7)  -  ESI (7,7)  +  FSH(7,7) 

FLO(7,7)  =  -  FLO(7,7), 

where  PS1  is  the  total  heat  flux,  ESI  is  the  sensible  heat  flux  and  FSH  is  the  solar  radiation. 

The  area  of  the  grid  cell  covered  by  thick  ice  cannot  be  <0.15;  each  value  at  the  second  time 
level  is  checked  to  make  sure  this  does  not  happen. 

Next,  the  total  growth  rate  of  thick  ice  (FHEFF)  is  set  to  0,  the  average  ice  thickness  over  the 
grid  cell  (HICE)  is  calculated,  and  the  term  to  be  used  in  determining  the  amount  of  ice  (AR)  is 
determined  for  each  thermodynamic  field: 

FHEFF(7,7)  =  0, 

HICE(7,7)  =  HEFF(7,7,2)/AREA1  (7,7,2), 

AR(7,7)  =  MIN(AREA1  (7,7,2),  HEFF(7,7,2)  *  10000). 

Constant  values  are  assigned  for  the  volumetric  heat  of  fusion  (RLATNT),  the  conversion 
factor  from  joules  to  calories  (CP),  and  the  thickness  of  the  mixed  layer  (ZMIX).  The  exchange  of 


62 


Preller,  Posey,  and  Croat 


ice  and  ocean  conditions  (EXCHNG)  is  set  to  every  3  h  or  8  times  per  day,  and  the  number 
of  seconds  within  this  exchange  time  (TDAY)  is  also  set: 

RLATNT  =  302.0  *  106 

CP  =  4.19*  106 

ZMIX  =  30.0 

EXCHNG  =  8.0 

TDAY  =  86400.0/EXCHNG. 

The  value  of  TMIX  is  reset  to  the  mixed-layer  temperature  (Kelvin)  from  the  previous  timestep 
for  each  thermodynamic  field: 

TMIX(7,7)  =  TM  1(7,7).  i 

The  value  of  KOPEN  is  set  to  -1  for  the  open  water  case  and  the  BUDGET  CSU  is  called  to 
calculate  the  change  in  growth  rate  for  open  water. 

Next,  the  value  of  KOPEN  is  set  to  2  for  an  ice-covered  ocean  case  and  the  BUDGET  CSU 
is  called  again,  but  this  time  it  calculates  the  change  in  growth  rate  for  ice-covered  water. 

After  executing  from  the  BUDGET  CSU  for  the  second  time,  the  fractional  rate  of  total  open 
water  growth  (HDIFF1)  per  grid  cell,  the  net  rate  of  total  open  water  growth  rate  (FW1),  the  heat 
flux  (CFO_TMP),  and  the  heat  above  the  freezing  in  terms  of  ice  thickness  growth  rate  (CFO)  are 
calculated: 

HDIFF  1(7,7)  =  (1.0  -  AR (7,7))  *  FO(7,/) 

FW1(7,7)  =  F0(7,7) 

CFO_TMP  =  CP  *  ZMIX  *  (TM 1  (7,7)-TFRZ(7,7))/TD  AY/RLATNT 
CFO(7,7)  =  CFO_TMP  *  (1.0-AR(7,7)). 

After  these  values  are  calculated,  quality  checks  are  performed.  If  the  calculated  value  of  CFO 
is  <0,  then  it  is  set  to  0.  If  the  calculated  value  of  the  ice  thickness  growth  rate  HDIFF1  <0,  then 
HDIFF1  is  not  changed  since  the  ice  thickness  has  not  increased.  The  ice  is  considered  to  have 
melted  for  this  case.  If  HDIFF1  >0  and  HDIFF1  >CFO,  then  the  ice  grows  in  the  open  water.  I 
HDIFF1  >0  and  HDIFF1  <CFO,  then  the  ice  is  stable;  i.e.,  the  ice  is  neither  grown  nor  melted.  Fo 
this  case,  the  water  is  cooled  but  the  ice  does  not  grow  because  the  atmospheric  cooling  cannot  take 
away  all  of  the  heat  above  the  freezing  temperature.  HDIFF1  and  FW1  are  reset  to  0,  i.e.,  there  are 
no  ice  growth  rates. 

If  (HDIFF(7,7)  >0.0),  then 

if  (HDIFF  1(7,7)  >CFO(7,7)),  then 

HDIFF1(7,7)  =  HDIFF  1(7,7)  -  CFO(/,7) 

FW  1(7,7)  =  FO(7,7)  -  CFO_TMP, 

else 


HDIFF  1(7,7)  =  0 
FW  1  (7,7)  =  0. 
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The  ice  thickness  growth  rate  of  open  water  and  the  total  ice  thickness  are  calculated  by: 

GICE(7,7)  =  (1.0  -  AR (7,7))  *  (FO (7,7)  +  FW (I,J)  *  10-6/302.0), 

SHICE (7,7)  =  FHEFF(7,7)  *  AR (7,7)  +  HDIFF  1(7,7). 

The  values  of  FHEFF,  FO,  and  FW1  are  redefined  as: 

CFO(/,7)  =  (1.0  -  AR(/,7))  *  FO(/,7), 

FHEFF(/,7)  =  FHEFF(/,7)  *  AR(/,7)  +  HDIFF(/,7), 

FO(/,7)  =  FW  1(7,7), 

FW  1(7,7)  =  CP  *  ZMIX  *  (TM  1(7,7)  -  TFRZ(7,7))  *  (1.0  -  AR(7,7))/TD A Y /RL ATNT, 

FW  1(7,7)  =  MAX(0,  FW  1(7,7)). 

The  program  flow  returns  to  the  ICEMDL  CSU. 

3 .3.7.2  CSU  BUDGET 


The  purpose  of  the  BUDGET  CSU  is  to  compute  the  growth  rates  of  thick  and  thin  ice.  It  also 
computes  the  surface  temperature  of  ice  by  iteration.  This  temperature  balances  the  surface  heat 
budget  and  dictates  the  conduction  of  heat  through  the  ice  and,  therefore,  the  growth  rates. 


3. 3. 7. 2.1  CSU  BUDGET  Design  Specification/Constraints  —  There  are  no  known  constraints. 


33.1.2.2  CSU  BUDGET  Design 

Input  Data  Elements: 


FLO 

HICE1 

KOPEN 

QA 

TAIR 

TSFC 

UG 


longwave  radiation 

average  ice  thickness  over  the  grid  cell 
flag  for  ice-covered  or  open  water 
specific  humidity  at  the  ice  surface 
NOGAPS  atmospheric  forcing  -  surface  air  temperature 
mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice-covered 
water  (Kelvin) 
magnitude  of  the  wind 


/OCEANS/ 

FW  oceanic  heat  flux 

/RAD/ 

FSH  atmospheric  forcing  -  solar  radiation 

/SNOW/ 

SNRT  snowfall  rate 


/STEP/ 

DELTAT  timestep  (s) 


Output  Data  Elements: 

TSFC  mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice-covered 

water  (Kelvin) 

TSUM  mean  ice  thickness  from  all  seven  levels 
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Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 
Data  element  design  information  is  provided  in  Sec.  4.0. 


Local  Data  Elements: 

A1(IMT,JMT)  fixed  forcing  term  in  heat  budget  real 

A2(IMT,JMT)  used  in  heat  budget  real 

A3(IMT,JMT)  used  in  heat  budget  real 

AKI  ice  conductivity  constant  for  the  ice  cover  case  (2.1656  W  real 

AKS  snow  conductivity  constant  for  the  ice  cover  case  (0.31)  real 

B(IMT,JMT)  used  in  heat  budget  real 

D1  bulk  sensible  heat  transfer  coefficient  (2.284  j/m3  K)  real 

Dll  bulk  latent  heat  transfer  coefficient  over  ice  (6.4475  x  103  j/m3)  real  * 

D1W  bulk  latent  heat  transfer  coefficient  over  water  (5.6875  x  103  j/m3)  real 

D3  Stefan-Boltzmann  constant  times  the  surface  emissivity  real 

(5.5  x  10"8  W/m2  K4)  real  j 

EM(IMT,JMT)  used  in  computing  terms  in  the  heat  budget  for  an  ice-covered  case  real 

FICE(IMTJMT)  ice  growth  at  each  of  the  seven  levels  real 

FW2(IMT,JMT)  oceanic  heat  flux  (W/m2)  real 

HICE(IMT,JMT)  ice  depth  at  each  of  the  seven  levels  real 

HSI(IMT,JMT)  snow  depth  at  each  of  the  seven  levels  real 

I  index  counter  integei 

IMAX  maximum  number  of  iterations  (10)  intege: 

ITER  counter  for  iterations  intege 

J  index  counter  intege: 

NLEVEL  number  of  levels  (7)  intege 

NLV  index  of  loop  over  number  of  levels  intege 

NZ3  used  to  find  the  middle  level  intege 

POOLl(IMT)  temporary  array  real 

POOL2(IMT)  temporary  array  real 

Q0(IMT,JMT)  the  inverse  of  volumetric  heat  of  fusion  of  ice  (m3/j)  real 

QIS  used  in  equation  for  determining  excess  heat  after  all  snow  real 

is  melted  (0.364) 

QS1  used  to  calculate  terms  in  heat  budget  (6.1402  x  KT4)  real 

SNOW(IMT,JMT)  stores  midpoint  value  of  snow  depth  at  all  levels  real 

SSUM(IMT,JMT)  mean  of  snow  depth  from  all  seven  levels  real 

TB  freezing  point  of  seawater  (271.2  K)  real 

THICK(IMTJMT)  midpoint  value  of  ice  thickness  real 

TICE(IMT,JMT)  temperature  of  mixed  layer  for  open  water  case;  ice  temperature  real 

for  ice-covered  case 

TMELT  freezing  point  (273.16  K)  real 

TMID(IMT,JMT)  midpoint  surface  temperature  real 

TMID2(IMT,JMT)  midpoint  surface  temperature  of  the  next  timestep  real 

TX1  ice  constant  real 

TX2  snow  constant  real 

TY  used  in  computing  snow  and  ice  thickness  real 

TY1  ice  constant  real 

TZ  surface  ice  temperature  at  each  level  (°C)  real 
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TZ1 

ice  constant 

real 

TZ2 

snow  constant 

real 

VI 

used  to  correct  the  snow  depth 

real 

Algorithms: 

The  thermal  conductivity  is  a  single  value  based  on  a  weighted  sum  of  snow  and  ice  conductivities: 


KsKj 


\  9 

Ks  SnLVL+  KIhLVL 
V  / 


(22) 


where  Ks  is  the  snow  conductivity,  Kj  is  the  ice  conductivity,  Sn^vL  is  the  snow  depth  at  the  current 
level,  and  hivi  is  the  ice  thickness  at  the  same  level. 

The  surface  heat  budget  (Parkinson  and  Washington  1979;  Manabe  et  al.  1979)  is  calculated 
by  using: 


(1-00  Fs+FL+Dl 


U0 


(Ta-T0)  +  D2  Ug 


[qa(Ta)-qs(T0)]-D3T40 


+  (K/ H)( Tw-T0)  =  0  , 


(23) 


where  a  is  the  surface  albedo,  To  is  the  surface  temperature  of  ice,  Tw  is  the  air  temperature,  Ta 
is  the  water  temperature,  Ug  is  the  geostrophic  wind,  qa  is  the  specific  humidity  of  air,  qs  is  the 
specific  humidity  of  the  ice  surface,  Fs  is  the  incoming  short-wave  radiation,  Fi  is  the  incoming 
longwave  radiation,  D\  is  the  bulk  sensible  heat  transfer  coefficient,  Di  is  the  bulk  latent  heat 
transfer  coefficient  (water  or  ice),  D3  is  the  Stefan-Boltzmann  constant  times  the  surface  emissivity, 
K  is  the  ice  conductivity,  and  H  is  the  ice  thickness. 

Logic  Flow: 

The  HEAT  CSU  calls  the  BUDGET  CSU. 

In  BUDGET  CSU,  the  constant  QS1,  the  freezing  point  of  seawater  TB,  the  maximum  number 
of  iterations  IMAX,  the  bulk  heat  transfer  coefficient  Dl,  the  bulk  latent  heat  transfer  coefficient 
over  water  D1W,  the  bulk  latent  heat  transfer  coefficient  over  ice  Dll,  the  Stefan-Boltzmann 
constant  D3,  and  the  freezing  point  TMELT  are  defined: 

QS1  =0.622/1013.0 
IMAX  =  10.0 
TB  =  271.2 
Dl  =2.284 
D1W  =  5.6875  *  103 
Dll  =  6.4475  *  103 
D3  =  5.5  *  10~8 
TMELT  =  273.16. 

The  initial  snow  depth  HSI  is  set  to  0  at  each  of  the  thermodynamic  fields. 
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The  oceanic  heat  flux  is  computed  for  each  thermodynamic  field  as 
FW2(7,7)  =  FW  (I,f). 

For  the  ice-covered  case,  some  initial  conditions  are  assigned  at  each  thermodynamic  field: 

EM(I,J)  =  0.99 
HICE(7,7)  =  0.80 
POOL  1(1)  =  0.97 
Q0(7,7)  =  (1.0*  10"6)/110.0, 

where  EM,  HICE,  and  POOL1  are  all  values  used  in  computing  the  heat  budget,  and  Q0  is  the 
inverse  of  the  volumetric  heat  of  fusion  of  ice.  Next,  the  value  of  the  snow  depth  (HSI)  is  checked 
and  the  value  of  EM  is  reassigned  accordingly:  j 

if  (HSI (7,7)  =  0),  then  set  EM(7,7)  =  POOLl(I).  j 

Each  value  of  POOL1  is  reassigned,  the  value  of  HICE  is  checked  and  the  value  of  Q0  is 
reassigned  if  the  snow  depth  (HSI)  is  equal  to  0. 

POOL  1(1)  =  (1.0  *  10"6)/302.0 

HICE(7,7)  =  MAX(HICE1(7,7),  0.05) 

if  (HSI(7,7)  =  0),  then  set  Q0 (7,7)  =  POOLl(I). 

Next,  the  fixed  forcing  term  in  the  heat  budget  can  be  determined  for  the  case  of  ice  cover: 

A  1(7,7)  =  FSH(7,7)  +  FLO(7,7)  +  D1  *  UG(7,7)  *  TAIR(7,/) 

+D1I  *  UG(7,7)  *  QA(7,7), 

where  FSH  is  the  solar  radiation,  UG  is  the  geostrophic  wind,  TAIR  is  the  surface  air  temperature 
and  QA  is  the  specific  humidity  at  the  ice  surface. 

For  the  ice-covered  case,  the  growth  at  the  seven  levels  is  calculated  after  some  initial  condition: 
are  set  up  at  each  thermodynamic  field  for  the  midpoint  value  of  ice  thickness  THICK,  the  midpoin 
value  of  snow  depth  SNOW,  the  mean  ice  thickness  TSUM,  the  mean  snow  depth  SSUM,  and  th< 
midpoint  surface  temperature  TMID: 

THICK(7,7)  =  HICE(7,7) 

SNOW (7,7)  =  HSI(7,7) 

TSUM(7,7)  =  0 
SSUM(7,7)  =  0 
TMID(7,7)  -  TSFC(7,7). 

Now  the  snow  and  ice  thickness  (HSI  and  HICE,  respectively)  are  calculated  for  the  currei 
level  at  each  thermodynamic  field: 

TSFC(7,7)  =  TMID(7,7) 

HICE(7,7)  =  NLV  *  2.0  *  THICK(7,7)/(iVLEVEL  +  1) 
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TZ  =  TSFC(/,7)  -  273.16 

TY  =  NLV  *  2.0  *  SNOW(/,7)/(NLEVEL+l), 

where  NLV  is  the  index  of  the  current  level  and  /VLEVEL  is  the  total  number  of  levels  to  be 
processed.  The  value  of  HSI  is  reassigned  based  on  the  value  of  TZ: 

if  (TZ  <  0)  then  HSI(/,7)  =  TY 

if  (TZ  >  0)  then  HSI(/,J)  =  SNOW (/,/). 

The  terms  in  the  heat  budget  are  computed  using  an  iterative  process.  The  iteration  is  started 
by  calculating  the  following  for  each  x  and  y  thermodynamic  field: 

B (7,7)  =  QS1  *  6.1 1  *  exp(2 1.8746  *  (TSFC (I,J)  -  TMELT)/ 

(TSF C(I,J)  -  TMELT  +  265.5)) 

A3 (I,J)  =D1I  *  UG(/,J)  *  B(I,J)  *  21.8746  *  265.5/ 

((TSFC(/,/)-TMELT+265.5)  *  *  2) 

A2(I,J)  =  -  D1  *  UG (I,J)  *  TSF C(I,J)  -  Dll  *  U G(I,J)  *  B(IJ) 

TICE (/,J)  =  AKI  *  AKS/(AKS  *  HICE(/,7)  +AKI  *  HSI (7,7)) 

A3 (I,J)  =  A3 (I,J)  +  4.0  *  D3  *  EM (I,J)  *  TSF C(I,J)  *  *  3  +  TICE(/,7) 

+  D1  *  UG(/,J) 

=  TICE (I,J)  *  (TB  -  TSFC(/,7)). 

If  the  maximum  number  of  iterations  has  not  been  reached,  then  the  surface  temperature  of  ice 
TSFC  is  determined  at  each  x  and  y  thermodynamic  field: 

TSFC(/,7)  =  TSF  C(I,J)  +  (A1(/,J)  +  A2  (I,J)  +  B(I,J))/A3(I,T), 

If  (TSFC (I,J)  <  200.0  and  TAIR(/,J)  >  TMELT), 
then  TSF C(I,J)  =  TMELT 

If  (TSF C(/,J)  <  200.0  and  TAIR (I,J)  <  TMELT) 
then  TSFC (7,7)  =  200.0. 

The  iteration  counter  is  incremented  and  then  checked  to  see  if  the  maximum  number  of 
iterations  has  been  reached.  If  it  has,  any  value  of  the  surface  temperature  of  ice  that  is  above 
freezing  is  reset  to  the  freezing  point  (273.16  K).  The  iterative  process  continues  until  the  maximum 
number  of  iterations  has  been  computed. 

After  the  maximum  number  of  iterations  has  been  computed,  the  ice  temperature  (TICE)  at 
each  x  and  y  thermodynamic  field  is  calculated: 

TICE(/,7)  =  TICE(IJ)  *  (HICE(/,7)/AKI  *  TSF C(I,J)  +  HSI(/,7)/AKS  *  TB) 

If  IHSII  <  0.0001,  it  is  set  to  0.0001. 
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The  depth  of  melted  snow  (POOL1)  and  the  excess  heat  after  all  snow  is  melted  (POOL2)  are 
then  calculated. 

POOL  1(7)  =  QO (I,J)  *  (A  1  (7,7)+ A2(7,7)+AKS/HSI(7, 7)  *  (TICE(7,7)-TSFC(7,7))) 

POOL2(7)  =  (HSI(7,7)/DELTAT  -  POOLl(I))  *  QIS 

+  1.0  *  10"6/302.0  *  (AKS/HSI(7,7)  *  (TICE(7,7)-TSFC(7,7)) 

-  AKI/HICE(7,7)  *  (TB-TICE(7,7)) 

+  0.09  *  FSH(7,7)  +  0.02  *  FLO(7,7)). 

If  snow  existed  and  POOL2  <0,  then  the  ice  is  melted.  If  no  snow  existed,  POOL1  is  recalculated 
using  ice  constants,  instead  of  snow  constants,  to  obtain  the  ice  melt: 

TZ1  =HSI(7,7)- 0.0001 

T Y 1  =  -  POOL  1  (7)  -  ( AKI/HICE(7, J)  *  (TB-TICE(7,7)) 

-  AKS/HSI(7,7)  *  TICE(7,7)-TSFC(7,7)))  *  Q0 (7,7) 

TX1  =  MIN(0.0,  POOL2(7)) 

if  (TZ1  =  0),  then  FICE(7,7)  =  TY1 

if  (TZ1  *  0),  then  FICE(7,7)  =  TX1 

if  (TZ1  =  0),  then  HS  1(7,7)  =  0. 

The  snow  depth  is  corrected  by: 

VI  =  HSI(7,7)  -  POOL(I)  *  DELTAT 
POOL  1(7)  =  MAX(V1,  0.0) 

TZ2  =  TSFC(7,7)  -  TMELT 
TX2  =  HSI(7,7)  +  DELTAT  *  SNRT 
if  (TZ2  =  0),  then  HSI(7,7)  =  POOL  1(7) 
if  (TZ2  *  0),  then  HSI(7,7)  =  TX2. 

The  ice  melt  at  the  ice-ocean  interface  is  added  to  the  melt  at  the  top  of  the  ice  by: 
FICE(7,7)  =  1.0  *  10-6/302.0  *  (AKI/HICE(7,7)  *  (TB  -  TICE(7,7))  -  FW2(7,7))  +  FICE(7,7). 

The  snow  and  ice  depth  changes  are  added  to  all  seven  levels  of  the  sum  and  the  surface 
temperature  of  the  ice  is  saved  as  the  midpoint  (TMID2)  for  the  next  timestep  computations: 

TSUM(7,7)  =  FICE(7,7)/iVLEVEL  +  TSUM(7,7) 

SSUM(7,7)  =  HSI(7,7)//VLEVEL  +  SSUM(7,7) 

NZ3  =  NLV  -  (7VLEVEL+l)/2 

if  (NZ3  =  0)  then  TMID2(7,7)  =  TSFC(7,7). 

After  values  for  all  seven  levels  are  computed,  then  the  following  calculations  made: 

HSI(7,7)  =  SSUM(7,7) 

TSFC(7,7)  =  TMID2(7,7). 
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This  completes  all  computation  for  the  ice-covered  case. 

For  the  open  water  case,  the  following  are  calculated  at  each  x  and  y  thermodynamic  field: 

TICE(/,7)  =  TSFC  (I,J) 

QO (I,J)  =  1.0  *  10~6/302.0 

A1  (/,/)  =  FSH (I,J)  +  FLO (7,7)  +  D1  *  UG(/,J)  *  TAIR (7,7)  +  D1W  *  UG(/,J)  *  QA (I,J) 

=  QS1  *  6.1 1  *  exp(17.2694  *  (TSF C(I,J)  -  TMELT)/(TSF C(I,J)  -  TMELT  +  237.3)) 
A2 (I,J)  =  -  D1  *  UG(/,J)  *  TSFC (I,J)  -  D1 W  *  UG(/,J)  *  B(/,J) 

TSUM (7,7)  =  QO (I,J)  *  (-FW2 (I,J)  -  A1(/,J)  -  A2 (I,J)  +  SNRT  *  1 10.0  *  106). 

In  the  equations  above,  TICE  is  the  temperature  of  the  mixed  layer. 

The  mean  ice  thickness  from  all  seven  levels  (TSUM)  and  the  mixed-layer  temperature  for  the 
open  water  case  or  the  ice  temperature  for  ice-covered  water  (TSFC)  are  returned  to  the  HEAT  CSU. 


3.4  CSC  Compute  Ocean 

3.4.1  CSC  Compute  Ocean  Driver 

3.4.1.1  CSU  OCEAN 


CSU  OCEAN  serves  as  the  main  routine  for  the  CSC  Compute  Ocean.  This  routine  originated 
as  the  main  routine  in  the  stand-alone  version  of  the  Cox  Ocean  Model  (Cox  1984).  Minor  modifications 
were  made  to  allow  the  original  routine  to  function  as  a  subroutine  in  the  CSCI  PIPS2.0. 


3.4.1. 1.1  CSU  OCEAN  Design  Specification/Constraints  -  There  are  no  known  constraints. 


3.4. 1.1. 2  CSU  OCEAN  Design 


Input  Data  Elements: 


AREA 

FINS 

HR 

ITT 

P 

PB 

VOLUME 


surface  area  of  the  ocean  basin,  read  in  on  a  restart  or  computed  on  a  run 
started  from  scratch 

floating  point  array  of  vorticity  starting  indices  read  in  from  the  ocean  restart 
file 

reciprocal  depth  array  read  in  for  model  initialization 
timestep  counter  read  in  on  a  restart 

stream  function  computed  in  previous  model  execution  for  the  last  timestep 
processed;  read  in  on  a  restart 

stream  function  computed  in  previous  model  execution  for  the  second-to-last 
timestep  processed;  read  in  on  a  restart 
volume  of  the  ocean  basin,  read  in  on  a  restart  or  computed  on  a  run  started 
from  scratch 


/CORSP/ 

FCORSP  array  of  sine  of  latitude  positions  for  each  gridpoint 
/LEVITUS/ 

SMIX  interpolated  monthly  salinity  data  input  from  the  Levitus  salinity  file 

TMIX  interpolated  monthly  temperature  data  input  from  Levitus  temperature  file 
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Output  Data  Elements: 

/FIELDS/ 

HR  reciprocal  depth  array;  read  in  on  a  restart  and  computed  on  a  run  started 


from  scratch 

P  mass  transport  stream  function  output  to  CSU  OSTEP  to  initialize  the 

timestepping 

PB  mass  transport  stream  function  output  to  CSU  OSTEP  to  initialize  the 

timestepping 

ZTD  array  values  are  initialized  to  0 


/FULLWD/ 

AREA 

EB 

IEIS 

IEZ 

ISIS 

ISZ 

ITT 

JEIS 

JSIS 

KAR 

KFLDS 

KONTRL 
LABS  (3) 
MXSCAN 

NA 

NB 

NC 

NDISK 

NDISKA 

NDW 

NMIX 

NTSI 

NWRITE 

TTSEC 

VOLUME 


surface  area  of  the  ocean  basin,  read  in  on  a  restart  or  computed  on  a  run 
started  from  scratch 

sets  the  type  of  mixing  timestep.  If  true,  a  Euler  backward  timestep  is  done; 

If  false,  a  forward  step  is  done.  < 

array  of  ending  I  indices  for  island  boxes;  values  are  initialized  in  a  data 
statement;  =  283,  138,  224,  227  : 

array  of  ending  indices  for  vorticity 

array  of  starting  I  indices  for  island  boxes;  values  are  initialized  in  a  data 
statement;  =  272,  133,  220,  225 
array  of  starting  indices  for  vorticity 
timestep  counter 

array  of  ending  J  indices  for  island  boxes;  values  are  initialized  in  a  data 
statement;  =  126,  173,  187,  182 

array  if  starting  J  indices  for  island  boxes;  values  are  initialized  in  a  data 
statement;  =  1 13,  168,  182,  179 
used  to  enable  vectorization 

disk  unit  number  for  two-dimensional  horizontal  fields  and  start  and  enc 
indices  for  vorticity;  =  12 
disk  unit  number  for  timestep  counter;  =11 
array  containing  disk  unit  numbers  for  slabs;  =13,  14,  and  15 
maximum  number  of  scans  allowed  for  convergence  in  CSU  CRELAX 
initialized  in  a  DATA  statement;  =100 
initialized  in  a  DATA  statement;  =  1 
initialized  to  0 
initialized  to  0 

permuting  disk  number  for  file  containing  slab  data 

permuting  disk  number  for  file  containing  slab  data 

initialized  to  1,000,000 

initialized  in  a  DATA  statement;  =  6 

initialized  in  a  DATA  statement;  =  1 

initialized  to  1,000,000 

initialized  to  0 

volume  of  the  ocean  basin,  read  in  on  a  restart  or  computed  on  a  run  starte 
from  scratch 


/ONEDIM/ 

C2DZ  vertical  grid  spacing  times  2;  DZ  *  2 

CS  cosine  of  U,V  point  latitudes 

CSR  1.0/CS 

CST  cosine  of  T  point  latitudes 

CSTR  1.0/CST 
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DXT 

DXT2R 

DXT4R 

DXTR 

DXU 

DXU2R 

DXU4R 

DXUR 

DYT 

DYT2R 

DYT4R 

DYTR 

DYU 

DYU2R 

DYU4R 

DYUR 

DZ(15) 


DZ2R 

DZZ 

DZZ2R 

EEH 

EEM 

FFH 

FFM 

PHI 

PHIT 

SFU 

SFUB 

SFV 

SFVB 

SINE 

SINEA 

UNIT 

TNG 

ZDZ 


zonal  grid  spacing  across  T  boxes  (between  U,V  points) 

1.0/(DXT  *  2.0) 

1.0/(DXT  *  4.0) 

1.0/DXT 

zonal  grid  spacing  across  U,V  boxes  (between  T  points) 

1.0/(DXU  *  2.0) 

1.0/(DXU  *  4.0) 

1.0/DXU 

meridional  grid  spacing  across  T  boxes  (between  U,V  points) 

1.0/(DYT  *  2.0) 

1.0/(DYT  *  4.0) 

1.0/DYT 

meridional  grid  spacing  across  U,V  boxes  (between  T  points) 

1.0/(DYU  *  2.0) 

1.0/(DYU  *  4.0) 

1.0/D  YU 

vertical  grid  spacing  in  centimeters  of  U,V,T  boxes  (between  W  points): 
DZ(1)  =  3000.0 
DZ(2)  =  4630.0 
DZ(3)  ='6745.0 
DZ(4)  =  9446.0 
DZ(5)  =  12846.0 
DZ(6)  =  17057.0 
DZ(7)  =22191.0 
DZ(8)  =  28351.0 
DZ(9)  =  35621.0 
DZ(10)  =  44057.0 
DZ(ll)  =  53678.0 
DZ(12)  =  64454.0 
DZ(13)  =  76300.0 
DZ(14)  =  89071.0 
DZ(15)  =  102553.0 

1.0/(DZ  *  2.0) 

vertical  grid  spacing  across  W  boxes  (between  U,V,T  points) 

1.0/(DZZ  *  2.0) 

upper  vertical  mixing  coefficient  of  T 
upper  vertical  mixing  coefficient  of  U,V 
lower  vertical  mixing  coefficient  of  T 
lower  vertical  mixing  coefficient  of  U,V 
latitude  in  radians  of  the  U,V  points 
latitude  in  radians  of  the  T  points 
external  mode  component  of  U 

external  mode  component  of  U  for  the  timestep  before  present 
external  mode  component  of  V 

external  mode  component  of  V  for  the  timestep  before  present 
sine  of  U,V  point  latitudes 

sine  of  U,V  point  latitudes  in  the  Earth-oriented  spherical  coordinates 
initial  values  of  tracers  used  only  when  starting  a  run  from  scratch 
tangent  of  U,V  point  latitudes 
vertical  position  of  bottom  of  levels 
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ZDZZ 

ZUN 

zus 

ZVN 

ZVS 

/SCALAR/ 

ACOR 


AH 

AM 

CRIT 

DTSF 

DTTS 

DTUV 

FKPH 

FKPM 

GRAV 

OMEGA 

RADIAN 

RADIUS 

SOR 

SWLDEG 

/TSTOP/ 

CHENG 

/WORKSP1/ 

FKMT 

FKMU 

FMM 

T 

TB 

TDIF 

TEMPA 

TEMPB 

U 

UB 

UUNDER 

V 

VB 


vertical  position  of  center  of  levels 

time  change  of  vertically  averaged  zonal  forcing  at  north  face 

time  change  of  vertically  averaged  zonal  forcing  at  south  face 

time  change  of  vertically  averaged  meridional  forcing  at  north  face 

time  change  of  vertically  averaged  meridional  forcing  at  south  face 


program  variable  which  is  assigned  the  value  of  ACORF.  If  equal  0,  treat  the 
Coriolis  term  explicitly.  If  greater  than  0,  treat  the  Coriolis  term  implicitly 
with  forward  component  weighted  by  ACOR 
program  variable  which  is  assigned  the  value  of  AHF;  coefficient  of  horizontal 
mixing  of  T;  =  l.Et7 

program  variable  which  is  assigned  the  value  of  AMF;  coefficient  of  horizontal 
mixing  of  U,V  I 

program  variable  which  is  assigned  the  value  of  CRITF;  criterion  foJ 
convergence  of  relaxation;  =  1.E8 

program  variable  which  is  assigned  the  value  of  DTSFF;  length  of  the  timestep 
on  the  stream  function;  =  1 80.0 

program  variable  which  is  assigned  the  value  of  DTTSF;  length  of  the  timestep 
on  the  tracer  elements;  =  1800.0 

program  variable  which  is  assigned  the  value  of  DTUVF;  length  of  the  timestep 
on  U,V;=  180.0 

program  variable  which  is  assigned  the  value  of  FKPH;  coefficient  of  vertica 
mixing  of  T;  =  1.0 

program  variable  which  is  assigned  the  value  of  FKPMF;  coefficient  o 
vertical  mixing  of  U,V 
acceleration  due  to  gravity;  =  980.6 
rate  of  rotation  of  the  coordinate  system;  =  PI/43082 
radian  to  degree  conversion  factor;  =  59.29578 
radius  of  the  earth;  =  6370.E5 

program  variable  which  is  assigned  the  value  of  SORF;  coefficient  o 
over-relaxation;  =  1.60  j 

latitude  in  degrees  of  the  southern  wall;  =  -45.72 


assigned  the  Levitus  climatological  data  of  temperature  and  salinity 


number  of  vertical  levels  of  ocean  at  T  points 
number  of  vertical  levels  of  ocean  at  U,V  points 
FM  at  row  J  -  1 

tracer  variables,  temperature  and  salinity 

tracer  variables  for  the  timestep  before  present 

diffusion  computation  array 

initialized  to  0 

initialized  to  0 

zonal  component  of  velocity 

zonal  component  of  velocity  for  timestep  before  present 
initialized  to  0 

meridional  component  of  velocity 

meridional  component  of  velocity  for  timestep  before  present 


Software  Test  Description  for  PIPS2.0 


73 


VUNDER  initialized  to  0 


Parameters: 
stored  in  file  ocean. 
GRID 
GRID2 
GRID3 
IMT 
IMTKM 
IMTM1 
IMTM2 
IMTP1 
IMU 
IMUM1 
IMUM2 
INT2 
INT3 
INTVL2 
INTVL3 
IRV 
JMT 
JMTM1 
JMTM2 
JMTP1 
JSCAN 
KM 
KMM1 
KMP1 
KMP2 
LBC 
LSEG 
MIDX 
MIDXX 
MIDY 
MIDYY 
NDICES 
NGRDP 
NGRDPX 
NGRDPY 
NIEVEN 
NISLE 
NKFLDS 
NRTLF1 
NSLAB 
NSTLF1 
NSTLW1 
NSTRT1 
NSTUP1 
NSWICH 


par 

0.5715 


assigned  to  DYT  and  DXT,  equal  to  GRID/INTVL2;  =  0.28575 
assigned  to  DYT  and  DXT,  equal  to  GRID/INTVL3;  =  0.28575 
total  number  of  T  grid  boxes  zonally;  =  360 


IMT  *  KM;  =  5400 


IMT  -  1 
IMT -2 
IMT  +  1 


=  359 
=  358 
=  361 


total  number  of  U,V  grid  boxes  zonally;  =  359 

IMU  -  1 

IMU -2 

INTVL2-  1;  =1 

INTVL3-  1;=1 

2 

2 


number  of  ocean  basin  grid  cells  for  which  river  runoff  is  to  be  considered;  =  88 

total  number  of  T  grid  boxes  meridionally;  =  360 

JMT  -  1,  =  359 

JMT -2;  =  358 

JMT  +  1;  =  361 

JMTM2 


total  number  of  vertical  levels  in  ocean  basin;  =15 


KM  -  1 
KM  +  1 
KM +  2 


=  14 
=  16 
=  17 


number  of  arrays  of  slab  data;  =  2 

maximum  number  of  sets  of  start  and  end  indices  for  islands  in  ocean  basin;  =10 


100 

MIDX  +  INT2  +  INT3  *  (MIDX  -  (NSTLF1  +  1));  =  200 
80 

MIDY  +  INT2  +  INT3  *  (MIDY  -  (NSTLW1  +  1));  =  160 

total  number  of  start  and  end  indices  -  2  *  LSEG  *  JMT  +  4  *  NISLE;  =  7216 


181 

NGRDP  +  INT2  +  INT3  *  NRTLF1  +  INT2;  =  361 
NGRDP  +  INT2  +  INT3  *  NUPLW1  +  INT2;  =  361 
2  *  ((NISLE  +  l)/2);  =  4 
number  of  islands  in  the  model  basin;  =  4 

number  of  two-dimensional  fields  needed  on  disk  unit;  7  +  (NDICES/NWDS) 
(NSTRT1-1)  -  (NSTLF1+1);  =  178 

number  of  words  in  one  slab;  IMT  *  ((NT  +  2)  *  KM  +  LBC);  =  22320 

0 

0 

180 

180 


number  of  words  of  slab  incidental  data  within  each  slab  that  are  nonprognostic; 
NSWICH  words  must  be  switched  into  correct  arrays  after  being  read  in  on 
an  even  timestep;  LBC  *  IMT;  =  720 
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NT 

number  of  tracer  elements  carried  in  the  model  (temperature  and  salinity);  =  2 

NTMIN2 

NT  +  1/NT 

NUPLW1 

(NSTUP1-1)  -  (NSTLW1+1);  =  178 

NWDS 

IMT  *  JMT;  =  129600 

STLF1 

0 

STLW1 

0 

STRT1 

180.0 

STUP1 

180.0 

Local  Data  Files  or  Databases: 

The  ocean  restart  data  are  read  from  and  written  to  file  fort_<yymmdd> .21,  where  yymmdd  is 
the  year,  month,  and  day  of  the  run,  using  the  Ocean  Direct  Access  Manager  (ODAM)  software 
described  in  CSC  Direct  Access  Manager  (Sec.  3.4.6).  Input  restart  data  are  read  from  logical  unit 
18  and  output  restart  data  are  written  to  logical  unit  34. 

Logic  Flow: 

Initialize  model  data: 

1.  Define  parameters  through  PARAMETER  statement.  This  PARAMETER  statement  will  be 
repeated  in  several  CSUs. 

2.  Assign  values  to  program  constants.  Set  x,  y,  and  z  dimensions  of  the  grid  boxes  in  centimeters 
Assign  logical  unit  numbers.  Set  radius  of  the  Earth,  rate  of  rotation,  acceleration  due  to  gravit) 
and  latitude  in  degrees  of  the  southern  wall  of  the  model  basin.  Set  PI  and  radian  to  degree 
conversion  factor. 

3.  Read  in  file  variables: 

a.  Read  data  from  the  restart  file  of  the  ice  model.  This  file  contains  the  ice  conditions  of  the 
current  day  including  the  ice-drift  velocity,  ice  thickness,  and  ice  concentration. 

b.  Read  ice  growth  rate  in  open  water,  total  ice  growth  rate  of  the  day,  and  heat  above  thi 
freezing  temperature. 

c.  Read  Earth-oriented  latitudes  of  each  gridpoint. 

d.  Read  run  parameters  including  control  parameters,  eddy  coefficients,  island  box  comer  poin 
indices,  initial  values  of  tracers,  timestep  lengths  for  T,U,V,  and  stream  function. 

4.  Compute  auxiliary  arrays  based  upon  the  specified  spacing.  Methods  for  computing  thes 
auxiliary  arrays  are  straightforward  using  variable  definitions  given  in  the  Data  Element 
section  of  this  CSU  description. 

a.  For  Z  direction,  compute  C2DZ,  DZ2R,  DZZ,  ZDZ,  DZZ2R,  ZDZZ,  EEH,  FFH,  EEM,  an 
FFM.  Auxiliary  arrays  are  used  for  ease  in  enabling  vectorization  in  other  CSUs: 

EEHk  =  FKPH/(DZk  *  DZZk), 

FFHk  =  FKPH/(DZk  *  DZZk+i), 

EEM  and  FFM  are  defined  similarly  with  FKPM  replacing  FKPH.  . 

b.  For  y  direction,  compute  PHI,  PHIT,  SUMDY,  DYU,  DYT,  DYTR,  DYT2R,  DYT4R,  DYUI 
DYU2R,  DYU4R,  CST,  CS,  SINE,  CSTR,  CSR,  and  TNG. 

c.  For  x  direction,  compute  DXU,  DXTR,  DXT2R,  DXT4R,  DXUR,  DXU2R,  and  DXU4R 
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5.  Open  the  disk  datasets  including  slab  data  files,  control  data  files,  and  two-dimensional  horizontal 

field  storage  files. 

Prepare  to  timestep: 

At  this  point,  program  execution  continues  without  consideration  as  to  whether  this  is  a  model 
restart  or  a  run  from  scratch. 

1.  Read  disk  data  into  memory  for  startup. 

a.  Read  in  timestep  counter,  total  elapsed  time,  surface  area  of  the  model  basin,  and  total 
volume  of  the  model  basin  from  logical  unit  number  KONTRL. 

b.  Read  start  and  end  indices  from  logical  unit  number  KFLDS  and  convert  to  integers  by 
storing  in  ISZ  and  IEZ  array. 

c.  Compute  permuting  disk  indicators  and  read  in  mass  transport  stream  functions  computed 
for  current  and  previous  timesteps.  Also  read  in  reciprocal  depth  array.  These  values  are  also 
stored  in  the  file  opened  on  logical  unit  number  KFLDS. 

2.  Initialize  array  variables  to  0  including  elements  of  vertical  mixing  computation  arrays,  change 

in  vorticity  arrays,  temporary  storage  arrays,  and  diffusion  computation  arrays. 

Timestep  the  model: 

Method:  Loop  to  call  CSU  OSTEP  to  compute  data  for  each  timestep.  Save  restart  data  after 
every  NWRITE  calls  to  CSU  OSTEP.  After  the  specified  number  of  timesteps  have  been  taken, 
close  disk  units  and  stop  execution. 


3.4.2  CSC  Ocean  Timestep 

This  CSC  controls  the  processing  for  each  timestep.  It  prepares  the  variables  needed  to  compute 
data  for  the  timestep  being  processed  and  drives  the  main  routines  for  computing  tracer  and  velocity  data. 

3.4.2.1  CSU  OSTEP 

CSU  OSTEP  is  the  main  routine  for  performing  the  functions  required  by  CSC  Ocean  Timestep. 
It  initializes  various  quantities  and  bootstraps  and  manages  the  I/O  for  the  row-by-row  computation 
of  prognostic  variables.  It  also  performs  analysis  procedures  on  the  progressing  solution. 

3.4.2. 1.1  CSU  OSTEP  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.4.2. 1.2  CSU  OSTEP  Design 

Input  Data  Elements: 

/FIELDS/ 

HR  reciprocal  of  total  depth  at  U,V  points 

PB  mass  transport  stream  function  computed  for  timestep  before  present 

/FULLWD/ 

EB 

ITT  timestep  counter,  incremented  by  1  in  this  CSU 
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KAR 

KFLDS 

KONTRL 

LABS 

NLAST 

NMIX 

NNERGY 

NTSI 

TTSEC 

VOLUME 

/ONEDIM/ 

C2DZ 

CS 

CSR 

CST 

DXT 

DXT4R 

DXU 

DXU2R 

DYU 

DYUR 

DYU2R 

DZ 

DZZ 

DZZ2R 

EEH 

EEM 

FFH 

FFM 

SINEA 


KAR(K)  =  K;  for  future  vectorization 

disk  unit  number  of  two-dimensional  horizontal  fields  and  start  and  end 
indices;  =  12 

disk  unit  number  for  timestep  counter,  etc. 

disk  unit  numbers  for  slabs;  =  13,  14,  15 

final  timestep  to  compute  on  this  run  of  the  model 

number  of  timesteps  between  mixing  timesteps 

number  of  timesteps  between  printout  of  energy  data 

number  of  timesteps  between  printout  of  timestep  information 

total  elapsed  time,  incremented  by  the  length  of  the  timestep  in  this  CSU 

volume  of  the  ocean  basin 


DZ  *2 

cosine  of  U,V  point  latitudes 
reciprocal  of  cosine  of  U,V  point  latitudes 
cosine  of  T  point  latitudes 

zonal  grid  spacing  across  T  boxes  (between  U,V  points) 

1.0/(DXT  *  4.0) 

zonal  grid  spacing  across  U,V  boxes  (between  T  points) 

1.0/(DXU  *  2.0) 

meridional  grid  spacing  across  U,V  boxes  (between  T  points) 

1.0/D  YU 
1.0/(DYU  *  2.0) 

vertical  grid  spacing  down  U,V,T  boxes  (between  W  points);  vertical  laye 
thickness  in  centimeters 

vertical  grid  spacing  across  W  boxes  (between  U,V,T  points);  assigned  t< 
DZZQ  in  this  CSU 

1.0/(DZZ  *  2.0);  assigned  to  DZZ2RQ  in  this  CSU 
upper  vertical  mixing  coefficient  of  T;  assigned  to  EEHQ  in  this  CSU 

upper  vertical  mixing  coefficient  of  U,V;  assigned  to  EEMQ  in  this  CSU 

lower  vertical  mixing  coefficient  of  T;  assigned  to  FFHQ  in  this  CSU 

lower  vertical  mixing  coefficient  of  U,V;  assigned  to  FFMQ  in  this  CSU 

sine  of  U,V  point  latitude  in  Earth-oriented  spherical  coordinates 


/SCALAR/ 

AH  coefficient  of  horizontal  mixing  of  T 

DTSF  length  of  timestep  on  the  mass  transport  stream  function 

DTTS  length  of  timestep  on  T 

DTUV  length  of  timestep  on  U,V 

OMEGA  rate  of  rotation  of  the  coordinate  system 

/TSTOP/ 

WINDSX  zonal  wind  velocity 

WINDSY  meridional  wind  velocity 
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/WORKSP1/ 

FKMT  number  of  vertical  levels  of  ocean  at  T  points  for  row  J 

FKMTP  number  of  levels  at  T  points  for  row  J+  1;  read  in  from  slab  data  file 

FKMUP  number  of  levels  at  U  points  for  row  7+1;  read  in  from  slab  data  file 

TA  similar  to  T  but  after  present 

TB  tracer  data  computed  for  timestep  before  present 

TBP  tracer  data  for  the  timestep  before  present  in  row  7+1;  set  to  TP  on  a 

mixing  timestep 

TDIF  diffusion  computation  array 

TP  tracer  data  for  row  7+1;  read  from  slab  data  files 

UP  U  component  of  horizontal  velocity  for  row  7+1;  read  from  slab  data  files 

V  meridional  component  of  velocity 

VP  V  component  of  horizontal  velocity  for  row  7+1;  read  from  slab  data  files 


Output  Data  Elements: 

/CURNTS/ 

TO  set  equal  to  T  for  the  last  timestep  processed 

UO  set  equal  to  U  for  the  last  timestep  processed 

VO  set  equal  to  V  for  the  last  timestep  processed 

/FIELDS/ 

P  mass  transport  stream  function  output  to  disk 

PB  mass  transport  stream  function  for  the  timestep  before  the  present 


/FULLWD/ 

BUOY 

DTABS 

EKTOT 

ENGEXT 

ENGINT 

ITT 

KMT 

KMTP 

KMU 

KMUP 

MIX 

MXP 

NDISK 

NDISKA 

NDISKB 

NERGY 

PLICEX 

PLICIN 

TTDTOT 

TTSEC 

TVAR 


energy  transfer  through  buoyancy  effects 
volume  average  of  absolute  change  of  temperature 
total  kinetic  energy  normalized  by  volume 

accumulator  of  rate  of  change  of  kinetic  energy  of  external  mode;  initialized 
in  this  CSU 

accumulator  of  rate  of  change  of  kinetic  energy  of  internal  mode;  initialized 
in  this  CSU 

updated  timestep  counter 

number  of  vertical  levels  of  the  ocean  at  T  points 

array  containing  number  of  vertical  levels  of  ocean  at  T  points  in  row  7+1 
number  of  vertical  levels  of  the  ocean  at  U,V  points 
array  containing  number  of  vertical  levels  of  ocean  at  U,V  points  in  row 
7+1 

mixing  timestep  indicator  set  in  this  CSU  to  indicate  whether  the  current 
timestep  is  a  mixing  timestep 

set  to  1  to  indicate  second  pass  of  a  Euler  backward  timestep 
permutes  with  NDISKA  and  NDISKB  on  logical  units  13,  14,  and  15  to 
access  slabs  at  each  timestep 
see  NDISK 
see  NDISK 

set  to  1  on  an  energy  printout  timestep 

energy  change  due  to  implicit  effects  on  external  mode 

energy  change  due  to  implicit  effects  on  internal  mode 

initialized  to  0 

total  elapsed  time  in  seconds 

change  of  variance  of  tracers 
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/ONEDIM/ 

SFU 

SFUB 

SFV 

SFVB 

ZUS 

zvs 

/RVR/ 

TRIVER 

/SCALAR/ 

C2DTSF 

C2DTTS 

C2DTUV 

/WORKSP1/ 

BCON 

C2DZQ 

DXT4RQ 

DXTQ 

DXU2RQ 

DXUQ 

DZ2RQ 

DZZ2RQ 

DZZQ 

EEHQ 

EEMQ 

FFHQ 

FFMQ 

FKMUP 

FM 

FMM 

FMP 

FVST 

FVSU 

GM 

RHOS 

TA 

TBM 

TBP 

TDIF 

TM 

UBP 

UCLIN 

UP 

UUNDER 

VBP 

VCLIN 

VUNDER 


external  mode  component  of  U 

external  mode  component  of  U  in  timestep  before  present 
external  mode  component  of  V 

external  mode  component  of  V  in  timestep  before  present 

initialized  time  change  of  vertically  averaged  zonal  forcing  at  south  face 

initialized  time  change  of  vertically  averaged  meridional  forcing  at  south  face 


river  temperature 


2  *  DTSF;  on  a  mixing  timestep  equal  to  DTSF 
2  *  DTTS;  on  a  mixing  timestep  equal  to  DTTS 
2  *  DTUV;  on  a  mixing  timestep  equal  to  DTUV 


array  of  slab  incidental  data  on  N+  1  slab 

set  equal  to  C2DZ  for  future  vectorization  j 

set  equal  to  DXT4R  for  future  vectorization 

set  equal  to  DXT  for  future  vectorization 

set  equal  to  DXU2R  for  future  vectorization 

set  equal  to  DXU  for  future  vectorization 

set  equal  to  DZ2R  for  future  vectorization 

set  equal  to  DZZ2R  for  future  vectorization 

set  equal  to  DZZ  for  future  vectorization 

set  equal  to  EEH  for  future  vectorization 

set  equal  to  EEM  for  future  vectorization 

set  equal  to  FFH  for  future  vectorization 

set  equal  to  FFM  for  future  vectorization 

number  of  vertical  levels  of  the  ocean  at  U,V  points  for  row  J  +  1 

masking  array  for  T  points 

masking  array  for  T  points  in  row  7-1 

masking  array  for  T  points  in  row  7+1 

initialized  advective  coefficient  for  south  face  of  T  box 

advective  coefficient  for  south  face  of  U,V  box 

masking  array  for  U,V  points 

initialized  values  of  RHO  for  the  row  to  the  south  of  the  present  row 

tracer  variables  for  timestep  after  present 

tracer  variables  for  timestep  before  present  for  row  7-1 

tracer  variables  for  timestep  before  present  for  row  7+1 

diffusion  computation  array 

tracer  variables  for  row  7-1 

U  component  of  horizontal  velocity  for  timestep  before  present  for  row  7  + 
array  of  internal  mode  component  of  U  at  row  7+1 
U  component  of  horizontal  velocity  for  row  7+1 

positioned  in  common  to  be  equivalent  with  UDIF  with  K  index  equal  t 
XM  +  1 

V  component  of  horizontal  velocity  for  timestep  before  present  for  row  7  + 

array  of  internal  mode  component  of  V  at  row  7+1 

positioned  in  common  to  be  equivalent  with  VDIF  with  K  index  equal  to  AM  + 
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WSX 

WSY 

ZUSENG 

ZVSENG 


zonal  component  of  surface  wind  stress 
meridional  component  of  surface  wind  stress 
vertical  average  of  U  forcing  at  south  face 
vertical  average  of  V  forcing  at  south  face 


Parameters: 

stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4. 1.1.2. 


Logic  Flow: 

Initialize  quantities  needed  for  each  timestep: 


1.  Increment  timestep  counter  by  1  and  the  total  elapsed  time  by  timestep  increment. 

2.  Update  permuting  disk  I/O  units.  At  any  one  time,  three  files  are  open  for  the  storage  and 
retrieval  of  slab  and  slab  incidental  data  for  the  N-  1  (timestep  before  present),  N  (present 
timestep),  and  N  +  1  (timestep  after  present)  timesteps.  For  convenience,  three  permuting  disk  units 
are  used.  For  details  on  the  permutation  method  used  by  the  I/O  subsystem  refer  to  Sec.  3.4.6. 

3.  Prepare  timestep  length  variables  C2DTTS,  C2DTUV,  and  C2DTSF.  If  this  is  not  a  mixing 
timestep,  set  variables  equal  to  twice  the  length  of  the  timestep  on  T,  U,  and  V,  and  the  mass 
transport  stream  function.  If  this  is  a  mixing  timestep,  set  the  same  variables  equal  to  the  length 
of  the  timestep  on  T,  U,  and  V,  and  the  stream  function.  Also,  current  mass  transport  stream 
function  should  be  saved  to  the  previous  mass  transport  stream  function  on  a  mixing  timestep. 

4.  Call  CSU  STRESSUP  to  read  NOGAPS  geostrophic  winds  file  and  compute  surface  wind  stress 
if  this  is  the  first  timestep. 

5.  Establish  over-dimensioned  arrays  for  vectorization. 

6.  Call  CSU  STINIT  to  load  coefficient  arrays  for  subsequent  calls  to  CSU  STATE  and  CSU 
STATEC. 

7.  Reset  U  and  V  components  of  the  vertical  mixing  computation  arrays  UUNDER  and  VUNDER 
to  0  for  the  AM  +  1  boundary. 

8.  Initialize  arrays  to  contain  volume  average  of  absolute  change  of  temperature  (DTABS)  and 
change  of  variance  of  tracers  (TVAR). 

9.  If  this  is  an  energy  printout  timestep,  set  indicator  flag  and  prepare  necessary  variables.  Initialize 
arrays  to  accumulate  rates  of  change  of  kinetic  energy  of  internal  and  external  modes  (ENGINT, 
ENGEXT)  and  vertical  average  of  V  forcing  at  north  and  south  faces  of  box  (ZUSENG,  ZVSENG). 
Also,  initialize  tracer  arrays  including  arrays  to  contain  integrals  (TTDOT),  and  meridional  and 
northward  mass  transport  of  tracers  (TMT,  TTN). 

Bootstrap  the  row-by-row  computation  of  prognostic  variables: 

This  algorithm  bootstraps  the  row-by-row  processing  by  calculating  data  for  row  1  for  the 

timestep  after  present. 


1.  Call  CSU  OGET  to  retrieve  row  2  tracer  data  from  the  disk  for  the  timestep  before  present  and 
the  present  timestep. 
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2.  If  this  is  an  even  timestep,  switch  slab  incidental  data  into  correct  arrays.  On  even  timesteps, 
slab  incidental  data  is  read  into  incorrect  arrays  because  of  the  method  used  by  the  direct  access 
subsystem.  See  description  of  I/O  subsystem  in  Sec.  3.4.6. 

3.  Assign  arrays  containing  maximum  level  indicators  at  U,V,  and  T  points  to  integer  arrays  foi 
use  in  equations. 

4.  If  this  is  a  mixing  timestep,  move  T  and  U,V  data  from  the  timestep  before  present  to  the 
present  timestep  for  row  J+  1. 

5.  Initialize  arrays  for  first  calls  to  CSU  CLINIC  and  CSU  TRACER  including  slab  arrays,  south 
face  of  T  box  advective  coefficient  arrays,  and  row  J  and  J  -1  land/water  masking  arrays  foi 
T  points  (FM,FMM).  Set  all  array  values  to  0. 

6.  Construct  masking  array  for  row  2  T  points  by  checking  the  contents  of  the  array  containing 
the  number  of  vertical  levels  at  T  points.  Assign  0  to  land  points;  1  to  water  points. 

7.  Initialize  vorticity  computation  arrays  at  southern  wall  (ZUS,  ZVS)  to  0. 

8.  Save  internal  mode  velocities  for  row  2  to  arrays  UCLIN  and  VCLIN  and  compute  advectivq 
coefficient  for  south  face  of  row  2  U,V  boxes: 

FVSUi,k=(VPi,k+Vi,k)*FX, 

where 

FX  =  DYU2R2  *  CSR2  *  CST2  *  0.5. 

9.  Compute  external  mode  velocities  for  row  2  for  the  timestep  before  present  and  the  presen 
timestep  from  the  mass  transport  stream  function  results  read  in  CSU  OCEAN  in  preparing  t< 
timestep: 

SFUi  =  ((P i+i,j+2  ~  PiJ+ 1)  +  (PiJ+2  ~  Pi+lJ+l))  *  DYU2Rj+\  *  HRiJ+h 

SFVi  =  ((P i+ij+2  -  Pij+l)  ~  (PiJ+2  ~  Pi+lj+l))  *  DXU2Ri  *  HRiJ+l  *  CSRj+h 

On  timestep  before  present,  P  is  replaced  by  PB,  and  SFU  and  SFV  are  replaced  by  SFUI 
and  SFVB. 

10.  Add  external  mode  to  internal  mode  for  the  ocean  points  in  row  2  for  present  timestep  an 
timestep  before  present. 

11.  Accumulate  kinetic  energy  from  row  2  every  NTSI  timesteps: 

EKTOT  =  EKTOT  +  (UPi>k2  +  VPi>k2)  *  0.5  *  CSj+ 1  *  DYUj+ 1  *  DZk  *  DXUi- 

12.  Call  CSU  STATE  to  compute  density  of  row  2. 

Perform  row-by-row  computation  of  prognostic  variables: 

Loop  for  rows  2  through  JMT -  1: 

1.  Move  tracer  data  for  present  timestep  and  timestep  before  present  down  one  row.  Move  arra 
elements  for  row  J  data  to  array  elements  for  row  7-1.  Move  row  7+1  data  to  row  7. 

2.  Except  when  processing  the  last  row,  read  the  rest  of  the  7+1  slab  for  the  timestep  befoi 
present  and  the  present  timestep. 
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3.  Except  when  processing  row  2  (the  first  row  processed  in  this  algorithm),  write  newly  computed 
data  from  the  previous  row,  row  J  - 1 .  This  data  was  computed  in  the  previous  execution  of 
this  row-by-row  processing  loop. 

4.  If  processing  an  even  timestep,  switch  maximum  level  indicators,  read  in  step  2  above  into 
correct  slab.  Because  of  the  permuting  disk  I/O,  the  maximum  level  indicators  for  the  U,V 
points  are  in  the  FKMTP  array  and  the  maximum  level  indicators  for  the  T  points  are  in  the 
FKMUP  array.  The  arrays  are  switched  on  even  timesteps  only  as  is  explained  in  Sec.  3.4.6. 

5.  Shift  maximum  level  indicators  for  T  and  U,V  points  from  row  J  +  1  to  row  J  and  set  J  +  1 
floating  point  values  to  integer.  Maximum  level  indicators  should  be  in  arrays  KMT  and  KMU 
for  row  J  and  KMTP  and  KMUP  for  row  J  +  1 . 

6.  If  on  a  mixing  timestep,  set  tau  -  1  slab  data  equal  to  tau  level  slab  data.  Slab  data  includes 
tracer  data  and  U  and  V  components  of  horizontal  velocity. 

7.  Shift  masks  down  one  row  and  compute  new  masks.  The  masking  arrays  are  FM  for  row  J, 
FMM  for  row  J-  l,  FMP  for  row  J  +  1 .  Set  new  values  for  row  J  into  FMP  based  on  contents 
of  KMTP  arrays.  Also  set  GM  masking  array  based  on  contents  of  KMU. 

8.  Call  CSU  CLINIC  to  update  the  internal  mode  and  vorticity  driving  function  for  row  J . 

9.  Call  CSU  TRACER  to  update  the  tracer  quantities  for  row  J. 

10.  Print  the  progressing  solution  at  every  fourth  row  on  energy  timestep.  Call  CSU  MATRIX  to 
print  arrays  of  temperature  and  salinity  tracers  and  U,V,  and  W  components  of  velocity. 

1 1 .  If  not  processing  the  northernmost  row,  compute  the  northward  transport  of  each  tracer  quantity, 
as  well  as  the  zonally  integrated  meridional  mass  transport. 

a.  For  temperature  and  salinity  tracers,  move  data  computed  for  the  north  of  the  previous  row 
to  the  south  of  the  current  row. 

b.  Sum  all  tracer  data  for  row  2,  masking  out  land  points  with  the  FM  array  so  that  land  grid 
cells  do  not  contribute  to  the  sum.  Average  tracer  data  by  dividing  by  the  total  ocean  area 
of  row  2: 

TBRSkm  =  TBRSKm  +  TiXm  *  FMuk  *  DXTU 
TBRSk,m  =  TBRSk,JTOTDX, 

where  TOTDX  is  the  sum  of  the  zonal  grid  cells  for  all  ocean  gridpoints  in  row  2.  Row  2 
land  points  are  not  included  in  the  sum. 

c.  Compute  TBRN  similarly  using  masking  array  and  data  computed  for  row  J  +  1  in  timestep 
before  present. 

TBRNkjn  =  TBRNk,m  +  TPiXm  *  FMPi  k  *  DXTh 
TBRNkm  =  TBRNk,JTOTDX. 

d.  Sum  the  horizontal  velocity  zonally. 

VBRk  =  VBRk  +  Va  *  DXUi  *  CSj. 

e.  Compute  the  meridional  mass  transport  by  successively  adding  VBR  contributions  at  each 
depth  level. 
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For  depth  level  1: 

TMTj'i  =  VBR\  *  DZ\. 

For  all  other  depth  levels: 

TMTp t  =  TMTj'k-i  +  VBRk  *  DZk . 

f.  Compute  TTN,  the  northward  transport  of  the  tracers: 

TTNij,m  =  TTNijjn  +  VBRk  *  ( TBRNk,m  +  TBRSk,m)  *  0.5  *  DZk 

g.  Compute  zonal/vertical  averages  of  tracers  and  horizontal  velocity: 

VBRZ  =  VBRZ  +  (Va  *  DXUt  +  F«_i  >k  *  DXUi-\ )  *  DZk, 

VBRZ  =  VBRZ/TOTDZ, 

where  TOTDZ  is  the  total  vertical  grid  spacing, 

TBRZ  =  TBRZ  +  TlXm  +  TPiXm  *  DZk.  ’ 

h.  If  processing  the  last  timestep,  write  data  to  the  file  connected  to  logical  unit  10.  This  is  the 
file  containing  the  ocean  conditions  of  the  current  day. 

12.  Move  slab  incidental  data  into  the  correct  slab  for  writing  using  the  temporary  array  BCON.  Oij 
an  even  timestep,  set  BCON  values  equal  to  FKMT  values.  Otherwise,  set  BCON  values  equa 
to  FKMU  values.  These  data  are  written  out  at  the  beginning  of  the  next  execution  of  this  looj 
(see  step  3  above  of  this  algorithm). 

End  loop  for  row-by-row  computation. 

Write  out  computed  data: 

1.  Print  one  line  of  timestep  information  every  NTS1  timesteps,  including  timestep  number,  tota 
kinetic  energy,  volume  average  of  absolute  change  in  temperature  and  salinity,  and  number  o 
scans  to  convergence  in  CSU  CRELAX. 

2.  Complete  and  print  the  on-line  integrals  on  energy  timesteps. 

a.  Normalize  previously  computed  integrals  by  dividing  by  volume.  This  includes  total  chang 
of  kinetic  energy  on  internal  and  external  modes,  tracer  integrals,  and  total  change  of  vari 
ance  on  tracers. 

b.  Compute  residuals  for  energy  change  due  to  implicit  effects  on  internal  and  external  mode 
and  tracer  integrals. 

3.  Convert  heat  transport  to  Petawatts  using  conversion  factor  4.186E  -  15  and  convert  salt  transpo 
to  1010  cm3 4/s  using  conversion  factor  1.E-  10. 

4.  Initiate  write-out  of  newly  computed  data  from  the  final  row. 

Prepare  for  the  next  timestep: 

1.  Call  CSU  CRELAX  to  solve  for  the  new  mass  transport  stream  function. 

4 

2.  If  this  is  the  end  of  the  first  pass  of  a  Euler  backward  timestep,  set  the  input  disk  units  so  th 
the  proper  levels  are  fetched  on  the  next  pass.  The  output  for  the  second  pass  will  be  place 
on  the  NDISKA  unit.  Return  to  the  top  of  CSU  OSTEP  to  do  the  second  pass  if  this  is  the  fir 
pass  of  a  Euler  backward  timestep. 
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3.  For  purposes  of  recovering  from  the  disk  after  an  abnormal  stop,  bring  otherwise  inactive  disk 
units  up-to-date  by  writing  the  new  mass  transport  stream  function  and  the  total  number  of 
timesteps  that  were  completed. 

4.  If  this  is  an  energy  timestep,  print  the  new  stream  function  using  CSU  MATRIX. 


3.4.2.2  CSC  Compute  Wind/Ice  Stress 

CSC  Compute  Wind/Ice  Stress  requires  the  computation  of  the  wind/ice  stress  using  a  wind 
drag  coefficient  which  varies  as  a  function  of  ice  thickness. 

3.4.2. 2.1  CSU  STRESSUP 

CSU  STRESSUP  meets  all  of  the  requirements  specified  for  the  CSC  Compute  Wind/Ice  Stress. 

3.4.2.2.1.1  CSU  STRESSUP  Design  Specification/Constraints.  Compute  wind/ice  stress  using 
a  wind  drag  coefficient  which  varies  as  a  function  of  ice  thickness  according  to  the  law  of  the  wall. 

3.4.2.2.1.2  CSU  STRESSUP  Design 

Input  Data  Elements: 


/COX2/ 

FW1  heat  above  the  freezing  temperature 

GICE  ice  growth  rate  computed  by  the  ice  model 

SHICE  growth  rate  of  ice  thickness 


/CURNTS/ 

TO  set  equal  to  T  for  the  last  timestep  processed 

UO  set  equal  to  U  for  the  last  timestep  processed 

VO  set  equal  to  V  for  the  last  timestep  processed 

/FULLWD/ 

EKTOT  total  kinetic  energy  normalized  by  volume 

ENGEXT  accumulators  of  rates  of  change  of  kinetic  energy  of  external  mode 

ENGINT  accumulators  of  rates  of  change  of  kinetic  energy  of  internal  mode 

ITT  timestep  counter;  total  number  of  timesteps  completed 

KAR  KAR(K)  =  K;  used  to  enable  vectorization 

KMU  number  of  vertical  levels  of  ocean  at  U,V  points 

KMUP  number  of  vertical  levels  of  ocean  at  U,V  points  for  row  J  +  1 

MXP  if  =  1,  second  pass  of  Euler  backward  timestep 

NERGY  if  =  1,  indicates  energy  printout  timestep 

NTSI  number  of  timesteps  between  prints  of  a  single  line  of  timestep  information 


/RFOR2/ 

GAIRX  x  component  of  the  geostrophic  wind 

GAIRY  y  component  of  the  geostrophic  wind 


/RSTRT/ 

AREA1  fraction  of  grid  cell  covered  with  ice 

HEFF  mean  ice  thickness  per  grid  cell 
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UICE 

x  component  of  ice  drift 

VICE 

y  component  of  ice  drift 

/TSTEP/ 

IDTG 

date-time  group  in  the  form  YYMMDDHH 

ITSTEP 

number  of  timesteps  for  run 

MDY 

day  calculated  from  inputted  data 

MHR 

hour  calculated  from  inputted  data 

MM 

month  calculated  from  inputted  data 

MYR 

year  calculated  from  inputted  data 

/TSTOP/ 

WINDSX 

zonal  wind  velocity 

WINDSY 

meridional  wind  velocity 

Output  Data  Elements: 

/TSTOP/ 

WINDSX  zonal  wind  velocity 

WINDSY  meridional  wind  velocity 

Parameters: 

stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4. 1.1. 2. 


Local  Data  Elements: 

CDWI  drag  coefficient  between  water  and  ice  as  a  function  of  ice  thickness  accordin| 

to  the  law  of  the  wall 

CONSTK  the  von  Karman  constant,  0.41 
CONSTZ  minimum  sea  ice  roughness,  0.01  m 

HMIN  minimum  ice  thickness 

I  index  counter 

J  index  counter 

TX  temporary  array  used  in  computing  wind  stress 

TY  temporary  array  used  in  computing  wind  stress 


Logic  Flow: 

1 .  For  all  surface  grid  cells  except  the  last  row  and  column,  compute  wind/ice  stress  using  compute 
wind  drag  coefficient,  CDWI. 


Compute  wind  drag  coefficient: 

CDWI  =  1.0 1(DLOG(HMIN/CONSTZ)/CONSTK)  *  *  2, 
where 

HMIN  =  maximum  of  the  ice  thickness  for  grid  cell  I,J  and  0.015, 
CONSTZ  =  0.0 1 ,  and 
CONSTK  =  0.41. 
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Compute: 

TXij  =  WINDSXij  *  \WINDSXij\  *  0.0013  *  0.0008  *  10000.0  *  (1.0  -AICEija) 

+  (UICEid, 2  *  100.0  -  UliJ)  *  \UICEiJt2  *  100.0  -  Ulijl  *  CDWI  *  AICEija 

TYij=  WINDSYij  *  I  WINDSYjJ  *  .0013  *  .0008  *  10000.  *  (1.0  -AICEiJt2) 

+  (VICEij, 2  *  100.  -  VI y)  *  lVICEij'2  *  100.  -  VI  ^1  *  CDWI  *  AICEiJi2 

2.  Set  WINDSX  and  WINDSY  for  all  surface  grid  cells.  Last  row  and  column  values  will  be  0. 
WINDSXij  =  TXij/10.0  and  WINDSYij  =  TYtjI  10.0. 

3.4.2.3  CSC  Load  Normalization  Constants 

This  sublevel  CSC  requires  a  CSU  to  load  normalization  constants  into  arrays  for  use  in 
computing  densities. 

3.4.2.3.1  CSU  STINIT-CSU  STINIT  loads  normalization  constants  into  arrays  for  subsequent 
calls  to  CSU  STATE  and  CSU  STATEC. 

3.4.2.3.1.1  CSU  STINIT  design  specification/constraints.  Overdimension  arrays  are  provided  to 
permit  future  vectorization. 

3.4.2.3.1.2  CSU  STINIT  design. 

Output  Data  Elements: 

/WORKSP/ 

CQ  coefficients  of  normalized  temperatures  and  salinities  used  in  CSU  STATE 

TOQ  normalizing  temperatures  used  in  CSU  STATE 

SOQ  normalizing  salinities  used  in  CSU  STATE 

CIQ  coefficients  of  normalized  temperatures  and  salinities  used  in  CSU  STATEC 

TOIQ  normalizing  temperatures  used  in  CSU  STATEC 

SOIQ  normalizing  salinities  used  in  CSU  STATEC 

Local  Data  Elements: 

C  coefficients  of  equation  of  state  assigned  in  a  DATA  statement 

SO  normalizing  salinities 

TO  normalizing  temperatures 

Parameters: 

stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4. 1.1. 2. 

Logic  Flow: 

Load  coefficients  of  equation  of  state  into  overdimensioned  array  for  use  in  CSU  STATE. 

Load  normalizing  temperatures  and  salinities  into  overdimensioned  arrays  for  use  in  CSU 
STATE. 

Load  coefficients  of  equation  of  state  for  use  in  CSU  STATEC.  Determine  the  reference  level 
indicator  so  that  the  coefficients  for  the  two  levels  being  compared  are  equal.  Two  passes  are 
required  to  set  two  sets  of  coefficients.  In  the  first  pass,  values  for  the  first  set  of  elements 
are  assigned,  where  levels  1  and  2  are  assigned  level  2  coefficients,  levels  3  and  4  are  assigned 
level  4  coefficients,  and  so  on.  In  the  second  pass,  values  for  the  second  set  of  elements  are 
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assigned,  where  levels  1  and  2  are  assigned  level  1  coefficients,  levels  3  and  4  are  assigned  level 
3  coefficients,  and  so  on. 

Load  normalizing  temperatures  and  salinities  into  overdimensioned  arrays  for  use  in  CSL 
STATEC  using  the  method  described  above. 

3.4.2.4  CSC  Compute  Densities 

CSC  Compute  Densities  requires  the  computation  of  normalized  densities. 

3.4.2.4.1  CSU  STATE  and  CSU  STATEC  -  CSU  STATE  and  CSU  SINIT  are  used  to  compute 

normalized  densities  using  a  third-order  fit  to  the  Knudsen  formula.  CSU  STATE  is  called  by  CSU 
CLINIC  and  by  CSU  TIMESTEP  in  the  bootstrap  procedure.  CSU  STATEC  is  called  by  CSU 
TRACER.  , 

3.4.2.4.1.1  CSU  STATE  and  CSU  STATEC  design  specification/constraints.  This  subroutine 
contains  two  entry  points  for  computing  density. 

3.4.2.4.1.2  CSU  STATE  and  CSU  STATEC  design. 

Input/Output  Data  Elements: 

RHO  the  returned  row  of  normalized  densities 

TX  the  input  row  of  temperatures 

SQ  one  row  of  workspace  provided  by  the  calling  routine 

TQ  one  row  of  workspace  provided  by  the  calling  routine 

SX  the  input  row  of  salinities  in  units  (ppts-35)/1000 

IND  for  CSU  STATEC  only: 

if  IND=  1,  compare  levels  1  to  2,  3  to  4,  etc.; 

if  IND  =  2,  compare  levels  2  to  3,  4  to  5,  etc. 

in  either  case,  use  coefficients  for  the  lower  of  the  two  levels 


/WORKSP/ 

SOQ 

TOQ 


normalizing  salinities 
normalizing  temperatures 


Parameters: 

stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4. 1.1. 2. 

Logic  Flow: 

Compute  normalized  densities  by  using  a  third-order  polynomial  fit  to  the  Knudsen  formula 

1.  Subtract  normalizing  constants  from  input  temperature  and  salinity. 

2.  Compute  polynomial  approximation  of  Knudsen  density: 

RHOi'k  =  (CQiX  1  +  (CQi'lcA  +  CQi,k,7  *  SQi,k)  *  SQi,k  +  (CQi,k,3  +  CQi,k,% 

*  SQi,k  +  CQiX 6  *  TQi^k)  *  TQiyk)  +  ( CQiXl  +  CQi,k,5  +  CQi,k,9  *  SQi,k)  *  SQi,k2 

For  entry  STATEC,  array  CIQ  replaces  array  CQ  and  the  index  of  the  fourth  dimension  of  Cl{ 
is  equal  to  IND. 
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3.4.2.5  CSC  Print  Matrix 

CSC  Print  Matrix  requires  a  subroutine  to  print  elements  of  a  two-dimensional  array. 

3.4.2.5.1  CSU  MATRIX  -  CSU  MATRIX  is  called  by  CSU  OSTEP  to  print  elements  of  a  two- 
dimensional  matrix  on  specified  timesteps. 

3.4. 2.5. 1.1  CSU  MATRIX  design  specification/constraints. 

3. 4.2.5. 1.2  CSU  MATRIX  design. 

Input  Data  Elements: 

ARRAY  the  array  to  be  printed 
IRDIM  the  first  dimension  of  the  array 

ISTRT  the  first  element  of  the  first  dimension  to  be  printed 

IM  the  last  element  of  the  first  dimension  to  be  printed 

JM  the  last  element  of  the  second  dimension  to  be  printed  -  the  rows  are  printed 

in  descending  order  (if  JM  =  0,  KK  is  used) 

KK  the  last  element  of  the  second  dimension  to  be  printed  -  the  rows  are  printed 

in  ascending  order  (if  KM  =  0,  JM  is  used) 

SCALE  a  scaling  factor  by  which  array  is  divided  before  printing.  If  scale  =  0,  no 
scaling  is  done  and  10  columns  are  printed  across  in  E  format.  If  scale  >  0, 
scaling  is  performed  and  20  columns  are  printed  across  in  F  format. 


Local  Data  Elements: 

IDIF  number  of  elements  to  be  printed  across  a  line;  the  difference  between  IE 

and  IS  plus  1 

IE  ending  element  number  when  printing  a  line  of  values 

IS  starting  element  number  when  printing  a  line  of  values 

JORK  do  loop  index  for  second  dimension 

JMORKM  ending  element  of  second  dimension,  equals  JM  +  KK 
L  the  row  number  printed  on  a  line 

NUM  array  for  temporary  storage,  unsealed  ARRAY  elements  printed  across  a  line 

PLINE  array  for  temporary  storage,  ARRAY  elements  multiplied  by  SCALER 

SCALER  reciprocal  of  scale  factor,  used  to  multiple  array  elements 


Parameters: 

stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4. 1.1. 2. 


Logic  Flow: 

1.  If  SCALE  =  0,  print  array  elements  in  groups  of  10.  Print  column  numbers  across  the  top.  Print 
row  number  followed  by  10  array  elements  using  El 3. 5  format.  Repeat  until  all  desired  values 
are  printed. 


2.  Otherwise,  print  array  elements  in  groups  of  20.  Print  column  numbers  across  the  top.  Print  row 
number  followed  by  20  array  elements  using  F6.2  format.  Repeat  until  all  desired  values  are 
printed. 


3.4.3  CSC  Compute  Internal  Mode  and  Vorticity  Driving  Function 

This  CSC  requires  computation  of  the  internal  mode  component  of  the  U  and  V  velocities  and 
the  vorticity  driving  function  for  use  in  determining  the  external  mode. 
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3.4.3. 1  CSU  CLINIC 

CSU  CLINIC  meets  the  requirements  of  CSC  Compute  Internal  Mode  and  Vorticity  Driving 
Function. 

3.4.3. 1.1  CSU  CLINIC  Design  Specification/Constraints  -  There  are  no  known  constraints. 


3.4.3. 1.2  CSU  CLINIC  Design 


Input  Data  Elements: 


/FULLWD/ 

EKTOT  total  kinetic  energy  normalized  by  volume 

ENGEXT  accumulators  of  rates  of  change  of  kinetic  energy  of  external  mode 

ENGINT  accumulators  of  rates  of  change  of  kinetic  energy  of  internal  mode  j 

ITT  timestep  counter;  total  number  of  timesteps  completed  s 

KAR  KAR(K)  =  K;  used  to  enable  vectorization 

KMU  number  of  vertical  levels  of  ocean  at  U,V  points 

KMUP  number  of  vertical  levels  of  ocean  at  U,V  points  for  row  7+1 

MXP  if  =  1 ,  second  pass  of  Euler  backward  timestep 

NERGY  if  =  1,  indicates  energy  printout  timestep 

NTSI  number  of  timesteps  between  prints  of  a  single  line  of  timestep  informatior 


/ONEDIM/ 

CS 

CSR 

CST 

CSTR 

DXT 

DXT2R 

DXT4R 

DXTR 

DXU 

DXU2R 

DXUR 

DYT 

DYT2R 

DYTR 

DYU 

DYU2R 

DYU4R 

DYUR 

DZ 

DZZ 

EEM 

FFM 

SINE 

SINEA 

TNG 

zus 

zvs 


cosines  of  U,V  point  latitudes 

reciprocal  of  the  cosines  of  the  U,V  point  latitudes 

cosines  of  T  point  latitudes 

reciprocal  of  the  cosines  of  T  point  latitudes 

zonal  grid  spacing  across  T  boxes 

1.0/(DXT  *  2.0) 

1.0/(DXT  *  4.0) 

1.0/DXT 

zonal  grid  spacing  across  U,V  boxes 
1.0/(DXU  *  2.0) 

1.0/DXU 

meridional  grid  spacing  across  T  boxes 
1.0/(DYT  *  2.0) 

1.0/DYT 

meridional  grid  spacing  across  U,V  boxes 
1.0/(DYU  *  2.0) 

1.0/(DYU*4.0) 

1.0/D  YU 

vertical  grid  spacing  down  U,V,T  boxes;  vertical  layer  thickness  in  centimetei 

vertical  grid  spacing  down  W  boxes 

upper  vertical  mixing  coefficient  of  U,V 

lower  vertical  mixing  coefficient  of  U,V 

sine  of  U,V  point  latitude 

sine  of  U,V  point  latitude  in  Earth-oriented  coordinates;  used  to  compu 
Coriolis  force 

tangent  of  U,V  point  latitude 

time  change  of  vertically  averaged  zonal  forcing  at  south  face 
time  change  of  vertically  averaged  meridional  forcing  at  south  face 
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/SCALAR/ 

ACOR 

AM 

C2DTSF 

C2DTUV 

FKPM 

GRAV 

OMEGA 

RADIUS 

/WORKSP1/ 

C2DZQ 

DXT4RQ 

DXU2RQ 

DXUQ 

DZZQ 

EEMQ 

FFMQ 

FMM 

FVSU 

GM 

RHON 

RHOS 

TDIF 

TP 

U 

UB 

UBM 

UBP 

UCLIN 

UM 

UP 

V 

VB 

VCLIN 

VM 

VP 

WSX 

WSY 

ZUSENG 

ZVSENG 


if  >0,  treat  the  Coriolis  term  implicitly  with  forward  component  weighted  by 
ACOR,  past  component  by  1  -  ACOR 
coefficient  of  horizontal  mixing  of  U,V 
DTSF  *  2.0 
DTUV  *  2.0 

coefficient  of  vertical  mixing  of  U,V 
acceleration  due  to  gravity;  =  980.6  cm/s2 
rate  of  rotation  of  the  coordinate  system 
radius  of  the  Earth 


DZ  *  2.0;  for  future  vectorization 

DXT4R  (1.0/(DXT  *  4.0));  for  future  vectorization 

DXU2R  (1.0/(DXU  *  2.0));  for  future  vectorization 

DXU;  for  future  vectorization 

DZZ;  for  future  vectorization 

EEM  ;  for  future  vectorization 

FFM;  for  future  vectorization 

lower  vertical  mixing  coefficient  of  U,V 

advective  coefficient  for  south  face  of  U,V  box 

masking  array  for  U,V  points 

density  with  a  space  and  time  invariant  subtracted,  for  the  row  to  the  north 
of  the  current  row 

density  with  a  space  and  time  invariant  subtracted,  for  the  row  to  the  south 
of  the  current  row 
diffusion  computation  array 
tracer  variables  computed  for  row  J  +  1 
zonal  component  of  horizontal  velocity 

zonal  component  of  horizontal  velocity  for  the  timestep  before  the  present 
timestep 

UB  for  row  7-1 
UB  for  row  7+1 

array  of  internal  mode  component  of  U  at  row  7+1 
zonal  component  of  horizontal  velocity  for  row  7-1 
U  for  row  7+1 

meridional  component  of  horizontal  velocity 

meridional  component  of  horizontal  velocity  for  the  timestep  before  the  present 
timestep 

array  of  internal  mode  component  of  V  at  row  7+1 

V  for  row  7-1 

V  for  row  7+1 

zonal  component  of  surface  wind  stress 
meridional  component  of  surface  wind  stress 
vertical  average  of  U  forcing  at  south  face 
vertical  average  of  V  forcing  at  south  face 


Output  Data  Elements: 

/FULLWD/ 

EKTOT  total  kinetic  energy  normalized  by  volume 

ENGEXT  accumulators  of  rates  of  change  of  kinetic  energy  on  external  mode 

ENGINT  accumulators  of  rates  of  change  of  kinetic  energy  on  internal  mode 


90 


Preller,  Posey,  and  Cron 


/ONEDIM/ 

SFU 
SFUB 
SFV 
SFVB 
ZUN 
ZUS 
ZVN 

/WORKSP1/ 

FUW 
FVN 
FVSU 
TDIF 
TEMPA 
TEMPB 
TP 
UA 

Parameters: 
stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4. 1.1. 2. 

Logic  Flow: 

Prepare  arrays  for  the  computation  of  internal  modes: 

Several  arrays  must  be  calculated  to  prepare  for  the  computation  of  the  internal  modes  c 
horizontal  velocity.  These  include: 

•  the  advective  coefficients  for  the  west  ( FUW)  and  north  ( FVN)  faces  of  the  U,V  boxes, 

•  the  zonal  and  meridional  components  of  external  mode, 

•  horizontal  velocities  for  row  J  +  1  for  tau  and  tau  -  1  time  levels, 

•  the  density  for  row  J  +  1 , 

•  the  vertical  velocity  for  U,V  columns, 

•  hydrostatic  pressure  gradients,  and 

•  boundary  conditions  for  the  computation  of  the  vertical  diffusion  of  momentum. 

1.  Find  advective  coefficients  for  west  and  north  faces  of  U,V  box  using  data  computed  from  tl 
timestep  before  present.  These  variables  were  read  in  CSU  OSTEP: 

a.  Calculate  external  mode  component  of  U  ( SFU)  at  west  face  of  U,V  box  and  external  mot 
component  of  V  ( SFV)  at  north  face  of  U,V  box.  Use  mass  transport  stream  function  ret 
in  CSU  OSTEP: 

SFUi  =  -  (PiJ+ 1  -  Pij)  *  DYURj  *  HRmin, 

where  HRmm  is  the  minimum  of  HR^\j  and  HRij,  and  1 

SFVi  =  (Pi+ij+i  —  P i.j+l)  *  DXURi  *  HRmin  *  CSTRj+\, 
where  HRmi„  is  the  minimum  of  HRij+i  and  HRij, 


external  mode  component  of  U 

external  mode  component  of  U  for  timestep  before  present 
external  mode  component  of  V 

external  mode  component  of  V  for  timestep  before  present 
time  change  of  vertically  averaged  zonal  forcing  at  north  face 
time  change  of  vertically  averaged  zonal  forcing  at  south  face 
time  change  of  vertically  averaged  meridional  forcing  at  north  face 

zonal  component  of  advective  coefficient  for  west  face  of  U,V  box 

meridional  component  of  advective  coefficient  for  north  face  of  U,V  box 

advective  coefficient  for  south  face  of  U,V  box 

diffusion  computation  array 

utility  array  used  as  temporary  storage 

utility  array  used  as  temporary  storage 

similar  to  T  but  in  row  7+1 

zonal  component  of  velocity  for  timestep  after  present 
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b.  Calculate  internal  mode  component  of  U  at  west  face  of  U,V  box  and  internal  mode  component 
of  V  at  north  face  of  U,V  box: 

FUWU *=  {UCLINi  k  +  UCLINi^k)  *  0.5 
FVNi,k  =  (VPi<k  +  VCLINu)  *  0.5. 

c.  Add  external  modes  to  internal  modes  and  add  grid  weight  factor  to  obtain  advective  coefficients 
where 

CSRj  =  l/cos(latitude/) 

is  the  grid  weight  factor  for  the  west  face  of  U,V  box  and 
FX  =  DYU2Rj  *  CSRj  *  CSTj+i 

is  the  grid  weight  factor  for  the  north  face  of  U,V  box. 

2.  Compute  external  mode  velocities  for  row  J  +  1  for  present  timestep  and  timestep  before  present. 
External  mode  velocities  are  computed  from  the  mass  transport  stream  function,  P : 

SFU=-  ((Pi+ij+2  -  PiJ+ 1)  +  (P ij+2  ~  Pi+\J+0)  *  DYU2Rj+l  *  HRiJ+l 

SFV=  ((Pi+ij+2  -  Pij+l)  -  (PiJ+2  -  Pi+ij+i))  *  DXU2Ri  *  HRlJ+1  *  CSRj+h 
On  timestep  before  present,  PB  replaces  P  and  results  are  stored  in  SFUB  and  SFVB. 

3.  Add  external  mode  to  internal  mode  for  all  ocean  points  in  row  7+1  for  present  timestep  and 
timestep  before  present. 

4.  Accumulate  kinetic  energy  from  row  7  +  1  every  NTSI  timesteps. 

Compute  contribution  to  total  kinetic  energy: 

JJENGi'k  =  (FX  *  (UPik2  +  VP  if))  *  C2DZQuk  *  DXUQiM, 

where  FX  =  0.25  *  CSj+ 1  *  DYUj+h 

Add  UENGi'k  to  total  kinetic  energy  stored  in  EKTOT. 

5.  Call  CSU  STATE  to  compute  density  of  row  7+1.  Store  computed  results  in  RHON. 

6.  Compute  vertical  velocity  in  U,V  columns. 

a.  Set  vertical  velocity  at  the  surface  to  0  (rigid-lid),  and  set  vertical  velocity  at  maximum  level 
to  0.  The  rigid-lid  assumption  of  0  vertical  motion  at  the  surface  filters  out  external  gravity 
waves  that  would  otherwise  limit  the  timestep  of  the  numerical  integration. 

b.  Compute  change  of  vertical  velocity  W  between  levels 

WiM1  =  C2DZQi,k  *  {{FUWi+hk  -  FUWt,k )  *  DXU2RQuk  +  FVNi<k  -  FVSUiyk). 

c.  Integrate  downward  from  the  surface  by  adding  successive  vertical  velocities: 

WLk+l  =  WLk+WLk+ ,. 
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7.  Compute  hydrostatic  pressure  gradient. 

a.  Compute  it  at  the  first  level: 

UDIFi  i  =  RHONi+ i,i  -  RHOSi,i 
VDIFtf  =  RHONi  \  -  RHOSi+hi 

DPDXit i  =  ((UDIFt, i  -  VDIFij)  *  FXA)  *  DXU2Rt 
DPDYi  x  =  (UDIFi, i  +  VDIFi'i)  *  FXB, 
where  FXA  =  GRAV  *  DZZ\  *  CSRj  and 
FXB  =  GRAV *  DZZ\  *  DYUlRj. 

b.  Compute  the  change  in  pressure  gradient  between  levels: 

DPDXiyk  =  RHONi+  +  RHON^ 

DPDYi'k  =  RHOSi,k- 1  +  RHOS^ 

UDIFi>k  =  DPDXi+hk  -  DPDYi'k 
VDIFitk = DPDXi'k  -  DPDYi+ik 

DPDXi'k  =  (FXA  *  (UDIF^k  -  VDIF a))  *  DZZQ^  *  DXU2RQlM 
DPDYi,k  =  (FXB  *  (UDIFi, k  +  VDIFi,k))  *  DZZQi>k. 

c.  Integrate  downward  from  the  first  level: 

DP DX[,k+i  =  DPDXi,k  +  DPDXitk+\ 

DPDYiM  i  =  DPDYi,k  +  DPDYik+i- 

8.  Set  the  boundary  conditions  for  the  computation  of  vertical  diffusion  of  momentum. 

a.  Transfer  interior  points  into  diffusion  computation  arrays.  Store  UB  and  VB  elements  int< 
UDIF  and  VDIF  arrays. 

b.  Set  surface  (K= 0)  elements  of  diffusion  computation  arrays  to  reflect  wind  stress: 
UOVERi  =  UBiyi  +  WSXi  *  FX, 

VOVERi  =  VBi,\  +  WSYi  *  FX, 
where  FX  =  DZZ\IFKPM. 

c.  Set  first  land  level  in  each  column  to  reflect  bottom  condition.  Assume  a  10°  turning  angl 
at  the  bottom  boundary: 

UDIFi,kz+ 1  =  UBi,kz  -  FXB  *  (UBi,kz  *  0.98481  -  VBukz  *  0.17365) 

VDIF i,kz+\  =  VBi,kz  ~  ™  *  (UBiM  *  0.17365  +  VBiM  *  0.98481). 

Begin  computation  of  the  internal  modes. 

Method:  First,  the  total  advection  of  momentum  is  calculated  from  the  flux  through  the  we: 
face  of  the  U,V  box,  the  meridional  and  zonal  flux  divergence,  the  flux  through  the  top  of  the  U,' 
box,  and  the  vertical  flux  divergence.  Next,  horizontal  diffusion  of  momentum  is  evaluated  f( 
tau  -  1  timestep  and  vertical  diffusion  of  momentum  is  determined  from  gradients  at  top  of  U,V  bo 
and  from  upper  and  lower  vertical  mixing  coefficients  of  U  and  V.  Coriolis  force  is  computed  ; 
tau  timestep  for  explicit  treatment  and  at  tau  -  1  timestep  for  implicit  treatment.  Adding  thes 
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elements  to  the  computed  hydrostatic  pressure  gradient  yields  the  time  rate  of  change  of  velocity. 
New  velocities  are  computed  by  multiplying  the  time  rate  of  change  by  twice  the  length  of  the 
timestep  on  U,V  and  adding  this  product  to  the  U  and  V  components  of  velocity  computed  for 
the  timestep  before  present.  These  velocities  are  corrected  by  finding  the  incorrect  vertical  means 
and  subtracting  them  out. 

1.  Compute  total  advection  of  momentum. 

a.  Compute  flux  through  west  face  of  U,V  box: 

TEMPAuk  =  FUWi,k  *  (Ui- i,k  +  Ui,k) 

TEMPBi,k  =  FUWi,k  *  (VWf*  +  Vh£ 

b.  Compute  zonal  flux  divergence: 

UAi,k  =  ( TEMPA^  -  TEMPAi+ u  *  DXU2RQuk 
VAj,k  =  (TEMPBi,k  -  TEMPB  i+u)  *  DXU2RQi,k 

c.  Add  in  meridional  flux  divergence: 

UAhk  =  UAi,k  -  FVNm  *  ( UPhk  +  Ui,k)  +  FVSUbk  *  ( Ubk  +  UMhk) 

VAi,k  =  VAi,k-FVNi,k  *  (VP i,k  +  Vi,*)  +  FVSUi,k  *  (Yhk  +  VAf/,*) 

d.  Compute  flux  through  top  of  U,V  box: 

TEMPAi,k  =  Wi,k  *  (Uitk- 1  +  U i,k) 

TEMPBi,k=Wi,k*(Vi,k-l  +  Vi,k ) 

e.  Add  in  vertical  flux  divergence: 

UAi,k  =  UAi,k  +  TEMPAi,k+i  -  TEMPA hk  *  DZ2RQuk 
VAuk  =  VAuk  +  TEMPBi,k+\  -  TEMPB /,*  *  DZ2RQhk. 

2.  Add  in  horizontal  diffusion  of  momentum  (  evaluated  at  tau  -  1  timestep). 

a.  Compute  coefficients  dependent  only  on  latitude: 

BBUJ  =  8.0  *  AM  *  CSRj2 

CCUJ  =  AM  *  CSTj+i  *  DYTRj+i  *  DYURj  *  CSRj 
DDUJ  =  AM  *  CSTj  *  DYTRj  *  DYURj  *  CSRj 
GGUJ  =  AM  *  (1.0  -  TNG j2)/ RADIUS 2 
HHUJ  =  2.0  *  AM*  SINEj/(RADIUS  *  CSj 2) 

b.  Compute  gradients  at  west  face  of  U,V  box: 

TEMPAhk  =  DXT4RQi,k  *  (, UBhk  -  UB^ u) 

TEMPB i,k  =  DXTARQuk  *  (VBhk  -  VB^jd 

c.  Add  in  final  contribution  from  horizontal  diffusion  of  momentum: 

UAi,k  =  UAhk  +  BBUJ  *  (DXU2RQi,k  *  (TEMPAi+ u  -  TEMPA ;,*))  + 

CCUJ  *  ( UBPuk -  UBi,k)  +  DDUJ  *  (UBMhk-  UBu)  +  GGUJ 
*  UBi,k  -  HHUJ  *  DXU2RQi,k  *  (VBi+  u  -  VB(_,  *) 
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VAi,k  =  VAi,k  +  BBUJ  *  ( DXUlRQuk  *  (TEMPBi+ u  -  TEMPBuk) )  + 

CCUJ  *  (VBPi,k  -  VBi,k)  +  DDUJ  *  ( VBMhk  -  +  GGUJ 

*  VBi,k  +  HHUJ  *  DXUlRQuk  *  (UBi+hk -  UBt^,k)- 

3.  Add  in  vertical  diffusion  of  momentum. 

a.  Compute  gradients  at  top  of  U,V  box: 

TEMPAi,k=  UDIFuk- 1  -  UDIFi,k 
TEMPBi,k  =  VDIFuk-\  -  VDIFi,k. 

b.  Add  in  final  contribution  from  vertical  diffusion  of  momentum: 

UAi,k  =  UAi,k  +  EEMQuk  *  TEMPAuk  -  FFMQi,k  *  TEMPA^+i 
VAi,k  =  VAi,k  +  EEMQi,k  *  TEMPB hk  -  FFMQhk  *  TEMPBuk+x. 

4.  Add  in  Coriolis  force.  Evaluate  at  tau  timestep  for  explicit  treatment  and  at  tau  -  1  timestep  fo 
implicit  treatment  with  remainder  of  term  to  be  added  later. 

Explicit  treatment  of  Coriolis  force: 

UAi,k=UAi,k  +  FX*Vi,k 

VAi,k  =  VAi,k  -  FX  *  Ui,k. 

Implicit  treatment  of  Coriolis  force: 

UAi,k=UAi,k  +  FX*VBi,k 
VAi,k  =  VAi,k-FX*UBi,k. 

For  both  explicit  and  implicit  treatment  of  Coriolis  force,  FX  —  2.0  *  OMEGA  *  SINEAuj. 

5.  Add  in  pressure  term,  masking  out  land  with  the  GM  masking  array. 

UAuk  =  GMi,k  *  ( UAu  -  DPDXi,k) 

VAu  =  GMi,k  *  ( VAitk  -  DPDYi,k). 

6.  Form  time  change  of  vertically  averaged  forcing. 

a.  Integrate  time  change  vertically: 

ZUNi  =  ZUNi  +  UAi,k  *  FX 
ZVNi  =  ZVNi+VAi,k*  FX, 
where  FX  =  C2DTSF  *  DZk. 

b.  Form  average  by  multiplying  by  reciprocal  of  depth  (dividing  by  depth): 

ZUNi  =  ZUNi  *  HRt,j  { 

ZVNi  =  ZVNi*  HRUj. 

7.  Do  analysis  of  internal  mode  forcing  on  energy  timestep.  Form  vertical  average  for  use  lat 
in  external  mode  analysis. 
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a.  Compute  change  in  kinetic  energy  due  to  pressure  term: 

UENCuk  =  GMi,k  *  -  DPDXi,k, 

VENGuk  =  GMi,k  *  -  DPDYi,k, 

ENGINT6  =  ENGINT6  +  ( USAVbk  *  UENGuk  +  VSAVuk  *  VENGuk )  *  FX  *  DXUi  *  DZk, 
where  FX=CSj*  DYUj, 

ZUNENGtf  =  ZUNENGtf  +  UENGuk  *  DZk  *  HRbj, 

ZVNENGifi  =  ZVNENGifi  +  VENGuk  *  DZk  *  HRi,j. 

b.  Compute  change  in  kinetic  energy  due  to  advection  of  momentum. 

UENGuk  =  GMi,k  *  ((- FUWMJc  *  (Ui+U+  Ubk)  +  FUW '•,*  *  ( Ubk  +  U^jd 

*  DXUlRi  -  FVNi,k  *  ( UPi,k  +  Ut,t )  +  F VSUhk  *  (Ubk  +  UMbk)) 

VENGuk  =  GMi,k  *  ((-FUWi+Uk  *  (Vi+l,k  +  Vuk)  +  FUWbk  *  (V,-,*  +  V;_U) 

*  DXUlRi  -  FVNhk  *  ( VPi,k  +  Vuk)  +  FVSUi, k  *  (Vhk  +  VMuk. )) 

ENGINT2  =  ENGINT2  +  ( USAVhk  *  UENGuk  +  VSAVi,k  *  VENGuk)  *  FX  *  DXUi  *  DZk 
ZUNENGit2  =  ZUNENGa  +  UENGt,k  *  DZk  *  HRbj 
ZVNENGio  =  ZVNENGn  +  VENGuk  *  DZk  *  HRuj. 

Second  Loop: 

UENGuk  =  GMi,k  *  (-( Whk  *  (Ubk- 1  +  Ui,k)  -  Whk+ 1  *  (£//,*  +  Ubk+ 1))  *  DZ2RQi,k 
VENGi,k  =  GA4*  *  (-(W;,*  *  (V/fiW  +  Vi,*)  -  W;,*+1  *  (V,-,*  +  V/,*+i))  *  Z>Z2Kfi/,* 
ENGINT3  =  ENGINT3  +  (USAVi,k  *  UENGuk  +  VSAVuk  *  VENGuk )  *  FX  *  DXUi  *  DZk 
ZUNENGij  =  ZUNENGij  +  UENGuk  *  DZk  *  HRt,j 
ZVNENGo  =  ZVNENGij  +  VENGuk  *  F>Zk  *  HRt,j. 

c.  Compute  change  in  kinetic  energy  due  to  horizontal  diffusion  of  momentum: 

UENGuk  =  GMuk  *  {BBUJ  *  DXUlRi  *  (DXT4Ri+l  *  (UBMJc-  UBuk) 

+  DXTARi  *  (UBi-l*  ~  UBut ))  +  CCUJ  *  ( UBPbk  -  UBbk ) 

+  DDUJ  *  ( UBMuk  -  UBuk)  +  GGUJ  *  UBuk  -  HHUJ 
*DXU2Ri*(VBi+hk-VBi-Uk)) 

VENGuk  =  GMuk  *  (. BBUJ  *  DXUlRi  *  (DXT4Ri+l  *  ( -  V5ijjfc) 

+  DXT4Ri  *  ( VflM  ,k  ~  VBuk ))  +  CCUJ  *  ( VBPuk  -  VBuk) 

+  DDUJ  *  ( VBMuk  -  VBuk)  +  GGUJ  *  VBbk  +  HHUJ 
*  DXUlRi  *  ( UBMjt  -  UBi-ijd) 

ENGINT4  =  ENGINT4  +  ( USAVbk  *  UENGuk  +  VSAVuk  *  VENGuk)  *FX*  DXUi  *  DZk 
ZUNENGiA  =  ZUNENGlA  +  UENGuk  *  DZk  *  HRhj 
ZVNENGiA  =  ZVNENGu 4  +  VENGuk  *  DZk  *  HRuj. 

d.  Compute  change  in  kinetic  energy  due  to  wind  stress: 

UENGu  1  =  GMi,  1  *  EEM\  *  (UOVERi-  UDIFiA) 

VENGi  1  =  GMiA  *  EE  Mi  *  (VOVERi  -  VDIFiA) 
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ENGINT-j  =  ENGIT7  +  (USAVit i  *  UENGij  +  VSAVU\  *  VENGt,  1)  *FX*  DXUt  *  DZi 
ZUNENGij  =  ZUNENGij  +  UENGij  *  DZ\  *  HRhJ 
ZVNENGij  =  ZVNENGij  +  VENGit  i  *  DZ\  *  HRUj. 

e.  Compute  change  in  kinetic  energy  due  to  bottom  drag: 

UENGukz  =  GMukz  *  FFMkz  *  (UDIFhkz+ 1  -  t/D/F;,**) 

VENGi,kz  =  *  FFMkz  *  (VDIFi,kz+ 1  -  VD/Fi;fo) 

ENG  I NTg  =  ENG  I  NTs  +  ( USAVi,kz  *  UENGhkz  +  VSAVi,kz  *  VENGi,kz)  *FX*  DXUt  *  DZfe 
ZUNENG^s  =  ZUNENG^s  +  UENGi,kz  *  DZ&  * 

ZVNENGij  =  ZVNENGks  +  VENGi,kz  *  DZkz  * 
where  FZ  is  equal  to  the  index  of  the  bottom  level. 

f.  Compute  change  in  kinetic  energy  due  to  vertical  diffusion  of  momentum: 

UENGuk  =  GMi,k  *  (FXA  *  EEMk  *  (UDIFitk- 1  -  UDIFi,k)  -  FXB  *  FFM* 

*  (UDIFi,k-UDIFi,k+ 1)) 

VENGi,\a  =  GM,,*  *  (FXA  *  EEMk  *  (VDIFi,k^  -  VDIFuk)  -  FXF  *  FFMk 

*  ( VDIFi,k-VDIFi,k+1 )) 

ENGINTs  =  ENGINTs  +  (USAVi,k  *  UENGi,k  +  VSAVuk  *  VENGi,k)  *FX*  DXUi  *  DZk 
ZUNENGij  =  ZUNENGij  +  UENGi,k  *  DZk  *  HRi,j 
ZVNENGij  =  ZVNENGij  +  VENGi,k  *  DZk  * 

8.  Compute  new  velocities  (with  incorrect  vertical  means).  Add  in  remainder  of  Coriolis  term  i 
treated  implicitly. 

For  explicit  treatment: 

UAitk  =  UBi,k  +  C2DTUV  *  UAi>k 
VAiyk  =  VBi,k  +  C2DTUV  *  VAU 
For  implicit  treatment: 

UDIFi,k  =  ( UAuk  +  FX  *  VAi,k)  *  DETMR 

VDIFi,k  =  (VAi!k  -  FX  *  UAhk )  *  DETMR 

where  FX  =  C2DTUV  *  AC  OR  *  2.0  *  OMEGA  *  SINEAuj  and 

DETMR  =  1.0/(1.0  +  FX2). 

UAi,k  =  UBi,k  +  C2DTUV  *  UDIFi,k 
VAhk  =  VBi,k  +  C2DTUV  *  VDIF^ 

9.  Determine  the  incorrect  vertical  means  of  the  new  velocities. 

First,  sum  the  new  velocities  multiplied  by  the  vertical  grid  size  of  each  cell  in  centimeter 
SFUi  =  SFUi  +  UAi,k  *  DZk 


SFVi=SFVi+VAi,k  *  DZk. 
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Find  the  means  by  dividing  each  column  sum  by  depth  (multiplying  by  the  reciprocal): 


SFUi  =  SFUi  *  HRi,j 


SFVi  =  SFVi  *  HRuj. 

10.  Subtract  incorrect  vertical  means  from  newly  computed  velocities  to  get  correct  internal  mode 
velocity. 

11.  If  this  is  an  energy  timestep,  compute  total  change  of  kinetic  energy  of  internal  mode: 
ENGINTi  =  ENGINT\  +  (USAVhk  *  ( UAhk  -  UBuk)  +  VSAVuk  *  (VAhk  -  VBhk))  *  FX  *  DXUh 
where  FX  =  CSj  *  DYUj  *  DZk/C2DTUV. 

Begin  computation  of  vorticity  for  input  to  CSU  CRELAX: 

1.  Form  curl  of  time  change  in  vertically  averaged  equations: 

ZTDUj  =  ((ZUNi  *  DXUi  +  ZUNi-i  *  DXt/M)  *  CSj  -  ( ZUSt  *  DXUt  +  ZUSi-i  *  DX£/M)  *  CSj- 1) 

ZTDi,j  =  ((( ZVNi  -  ZVNi- 1)  *  DYUj  +  ( ZVSi  -  ZVS^i)  *  DYUj. i  -  ZTDuj)* 

DXTlRi  *  DYTRj )  *  CSTRj 

2.  If  on  an  energy  timestep,  do  analysis  of  external  mode  forcing: 

ENGEXTn  =  ENGEXTn  -  Pt,j  *  (((. ZVNENGm  -  ZVNENGi- Ui)  *  DYUj 

+  (ZVSENGi, ii  -  ZVSENGi- i,n)  *  DYUj. i)  *  DXT2R,  *  DYTRj-  ((ZUNENGm 
*  DXUi  +  ZUNENGi. Ui  *  DXUi. l)  *  CSj  -  {ZUSENGU\\  *  DXUt 
+  ZUSENGi- i,n  *  DXUi-\)  *  CSj. i)  *  DYTIRj  *  DXTRj)  *  DXTt  *  DYTj 

Transfer  computed  quantities  to  the  north  of  the  present  row  to  be  defined  to  the  south  in  the 
computation  for  the  next  row. 

3.4.4  CSC  Compute  Tracers 

CSC  Compute  Tracers  must  compute  the  tracer  elements  of  temperature  and  salinity  and  be 
readily  adaptable  to  computing  additional  tracers. 

3.4.4.1  CSU  TRACER 

CSU  TRACER  meets  the  requirements  of  CSC  Compute  Tracers  by  computing  temperature  and 
salinity  and  is  designed  to  be  adaptable  to  computing  additional  tracer  elements. 

3.4.4. 1.1  CSU  TRACER  Design  Specification/Constraints  -  There  are  no  known  constraints. 

3.4.4. 1.2  CSU  TRACER  Design 

Input  Data  Elements: 

/COX2/ 

FW1 
GICE 


heat  above  the  freezing  temperature 

ice  growth  rate  computed  by  the  ice  model 
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SHICE 

/FULLWD/ 

BUOY 

DTABS 

ITT 

KMT 

MXP 

NERGY 

NTSI 

TTDTOT 

TVAR 

/ONEDIM/ 

CS 

CSTR 

DXT 

DXT4R 

DXU2R 

DYT 

DYTR 

DYU 

DYUR 

DZ 

DZZ 

DZZ2R 

/RSTRT/ 

AREA1 

HEFF 

/RVR/ 

IRIVER 

JRIVER) 

KRIVER 

RIVER 

/SCALAR/ 

AH 

C2DTTS 

DTTS 

GRAV 

/TSTOP/ 

CHENG 

/WORKSP1/ 

C2DZQ 

DXT4RQ 

DXTQ 

DXU2RQ 


growth  rate  of  ice  thickness 


energy  transfer  through  buoyancy  effects 

volume  average  of  absolute  change  of  temperature 

timestep  counter;  total  number  of  timesteps  completed 

number  of  vertical  levels  of  the  ocean  at  T  points 

if  =  1 ,  indicates  second  pass  of  a  Euler  backward  timestep 

if  =  1 ,  indicates  energy  printout  timestep 

number  of  timesteps  between  prints  of  a  single  line  of  data 

array  of  integrals  on  tracers 

change  of  variance  of  tracers 


cosine  of  U,V  point  latitudes 

reciprocal  of  cosine  of  T  point  latitudes 

zonal  grid  spacing  across  T  boxes  (between  U,V  points) 

reciprocal  of  DXT  x  4.0 

reciprocal  of  DXU  x  2.0 

meridional  grid  spacing  across  T  boxes  (between  U,V  points) 
reciprocal  of  meridional  grid  spacing  across  T  boxes 
meridional  grid  spacing  across  U,V  boxes  (between  T  points) 
reciprocal  of  meridional  grid  spacing  across  U,V  boxes 
vertical  layer  thickness  in  centimeters 
vertical  grid  spacing  between  U,V,T  points 
1.0/(DZZ  *  2.0) 


fraction  of  the  grid  cell  covered  with  ice 
mean  ice  thickness  per  grid  cell 


x  component  of  river  discharge 
y  component  of  river  discharge 
z  component  of  river  discharge 
river  discharge  temperature 


coefficient  of  horizontal  mixing  of  T 
two  times  the  length  of  the  timestep  on  T 
length  of  the  timestep  on  T 
acceleration  due  to  gravity;  =  980.6  cm/s2 


vertical  layer  thickness  in  centimeters  x  2;  for  future  vectorization 
1.0/(DXT  *  4.0);  for  future  vectorization 
zonal  grid  spacing  across  T  boxes;  for  future  vectorization 
1.0/(DXU  *  2.0);  for  future  vectorization 


Software  Test  Description  for  PIPS2.0 


99 


DXUQ  zonal  grid  spacing  across  U,V  boxes;  for  future  vectorization 

DZ2RQ  1.0/(DZ  *  2.0);  for  future  vectorization 

EEHQ  upper  vertical  mixing  coefficient  of  T;  for  future  vectorization 

FFHQ  lower  vertical  mixing  coefficient  of  T;  for  future  vectorization 

FM  masking  array  for  T  points;  0  indicates  land  points,  1  indicates  ocean  points 

FMM  FM  at  row  7-1 

FMP  FM  at  row  7+1 

FVST  advective  coefficient  for  south  face  of  T  box 

RHON  density  with  a  space  and  time  invariant  subtracted  for  the  row  to  the  north 

of  the  present  row 

RHOS  density  with  a  space  and  time  invariant  subtracted  for  the  row  to  the  south 

of  the  present  row 

T  tracer  variables  for  current  timestep,  row  7 

TB  tracer  for  timestep  before  present 

TBM  similar  to  TB  but  in  row  7-1 

TBP  similar  to  TB  but  in  row  7+1 

TM  tracer  in  row  7-1  for  present  timestep 

TP  tracer  in  row  7+1  for  present  timestep 

UM  zonal  component  of  velocity  in  row  7-1 

V  meridional  component  of  velocity 

Output  Data  Elements: 

/COX2/ 

FW1  fraction  of  the  grid  cell  covered  by  ice 

GICE  ice  growth  rates  computed  by  the  ice  portion  of  the  PIPS2.0  coupled  model 

/FULLWD/ 

BUOY  energy  transfer  through  buoyancy  effects 

DTABS  volume  average  of  absolute  change  of  temperature 
TTDTOT  array  of  integrals  on  tracers 
TVAR  change  of  variance  of  tracers 

/WORKSP1/ 

FVST 
RHOS 

T 

TA 
TDIF 
TEMPA 
TEMPB 
UA 
VA 

Parameters: 
stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4. 1.1. 2. 


advective  coefficient  for  south  face  of  T  box 

density  with  a  space  and  time  invariant  subtracted  for  the  row  to  the  south 
of  the  present  row 

tracer  variables  (temperature  and  salinity)  for  current  timestep,  row  7 

tracer  variables  for  timestep  after  present 

diffusion  computation  array 

temporary  storage 

temporary  storage 

zonal  component  of  velocity  for  timestep  after  present 
meridional  component  of  velocity  for  timestep  after  present 
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Logic  Flow: 

Prepare  arrays  for  the  computation  of  the  tracers:. 

Several  arrays  must  be  calculated  in  order  to  prepare  for  the  computation  of  the  tracers: 

•  the  advective  coefficients  for  the  west  ( FUW)  and  north  ( FVN)  faces  of  the  T  box, 

•  vertical  velocity  in  T  columns,  and 

•  boundary  conditions  for  the  vertical  diffusion  of  tracers. 

1.  Find  advective  coefficients  for  west  and  north  faces  of  T  box: 

FUWi,k  =  (Ui. i ,k  *  DYUj  +  UMi-Uk  *  DYUj-i)  *  FXA 

FVNi,k  =  (Vi,k  *  DXU Qi,k  +  W  *  DXUQ^hk)  *  FXB  *  DXTARQuk. 

2.  Compute  vertical  velocity  in  T  columns: 

a.  Set  vertical  velocity  at  the  surface  to  0  (rigid-lid  assumption). 

b.  Compute  change  of  vertical  velocity  between  levels: 

Wi,k+i  =  C2DZQi,k  *  (C FUWi+hk  -  FUWi,k)  *  DXTARQuk  +  FVNuk  -  FVSTi,k ). 

c.  Integrate  downward  from  the  surface  by  adding  successive  vertical  velocities. 

3.  Set  boundary  conditions  for  vertical  diffusion  of  tracers: 

a.  Transfer  interior  points  (TB)  into  diffusion  computation  array  ( TDIF ). 

b.  Set  top  point  of  the  column  to  reflect  surface  flux,  bottom  point  of  the  column  to  refle 
insulation: 

TDIFixm  =  TBi\m 

TDIF i,kz+2,m  —  TBi,kz,m- 


Compute  the  tracers: 

Implement  the  equations  given  in  Sec.  2.2.A.3  for  computing  tracer  elements.  Two  passes  a 
required:  in  the  first  pass,  temperature  is  computed;  in  the  second  pass,  salinity  is  computed. 

1.  Compute  total  advection  of  tracers  by  summing  the  flux  through  the  west  face  of  the  T  be 
the  zonal  flux  divergence,  the  meridional  flux  divergence,  the  flux  through  the  top  of  t, 
T  box,  and  the  vertical  flux  divergence. 

a.  Compute  flux  through  west  face  of  T  box: 

TEMPAi,k  =  FUWi,k  *  (Ti,k,m  + 

rAu,i  =  MAX(TAiAA  -  54.4  *  (TAiX2  +  0.035)) 

TMPCHGuk  =  FUWi,k  *  Ti,k,m  +  Ti-Uk,m  +  2.0  *  TFRG. 

b.  Compute  zonal  flux  divergence  for  all  grid  cells  in  slab  j: 

TAi,k,m  =  (TEMPAuk  -  TEMPAi+hk)  *  DXTARQhk. 

For  surface  temperature, 

T CHENG i,j  =  (TMPCHGm-  TMPCHGi+i,k)  *  DXTARQi,k. 
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c.  Add  in  meridional  flux  divergence: 


TAi,k,m  —  TAi,ic,m  —  FVNi,k  *  ( TPi,k,m  +  Thhm)  +  FVSTi ,k  *  (Ti,k,m  +  TM uk,m) 


For  surface  temperature, 

TCHENGuj  =  TCHENGi,j  -  FVNhk  *  ( JPhkm  +  +  FVSTi, k  *  (Tbk,m  +  TMuk,m). 

d.  Compute  flux  through  top  of  T  box: 

TEMP Bi,k  =  Wi,k  *  (Ti,k- \>m  +  Tj,ic,m)- 
For  surface  temperature, 

TMPCHGuk  =  Wi,k  *  (Juk-ijn  +  Tuktm  +  2.0  *  TFRG). 

e.  Add  in  vertical  flux  divergence: 

TAi,k,m  =  TAi,k,m  +  (TEMP Bi,k+\  —  TEMP B i,k)  *  DZ2RQj,k 
For  surface  temperature, 

TCHENGuj  =  T CHENG i,j  +  (TMPCHGi,k+ 1  -  TMPCHGuk)  *  DZ2RQi,k. 

2.  Add  horizontal  diffusion  of  tracers  (evaluated  at  tau  -  1  timestep)  to  the  total  advection  of  the 
tracers. 

a.  Compute  coefficients  dependent  only  on  latitude: 

BBTJ  -  8.0  *  AH  *  CSTRj2 

CCTJ  =  AH*  CSj  *  DYURj  *  DYTRj  *  CSTRj 
DDTJ  =  AH*  CSj- 1  *  DYURj-i  *  DYTRj  *  CSTRj 

b.  Compute  gradients  at  west  face  of  T  box: 

TEMPAuk  =  DXUlRQi^k  *  (TBwb*  -  W- 

c.  Add  in  final  contribution  from  horizontal  diffusion  of  tracers.  To  provide  for  insulated  walls, 
each  gradient  is  multiplied  by  the  mask  of  the  point  in  its  respective  direction  causing  it  to 
be  0  if  it  is  taken  across  a  wall: 

TA[,k,m  —  TAuk,m  BBTJ  *  DXT4RQj,k  *  ( FMi+itk  *  TEMPAi+\yk  —  FM{_\ _k 

*  TEMPAuk)  +  CCTJ  *  FMPuk  *  TBPi,k,m  -  TBukm)  +  DDTJ 

*  FMMuk  *  ( TBMi,k,m  ~  TB i,k,m)  ■ 

3.  Add  vertical  diffusion  of  tracers  to  the  sum  of  the  total  advection  of  the  tracers  plus  the 
horizontal  diffusion  of  the  tracers. 

a.  Compute  gradients  at  top  of  T  box: 

TEMPBuk  =  TDIF Uktm  ~  TDIF Uk+Um • 


b.  Add  in  final  contribution  from  vertical  diffusion  of  tracers: 
TAi,k,m  =  TAi,k,m  +  EEHQuk  *  TEMPBhk  -  FFHQuk  *  TEMPBuk+ 1- 
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4.  Set  Newtonian  boundary  condition  of  temperature  and  salinity  at  the  ocean  surface. 

For  surface  grid  cells: 

TAit\,m  =  TAi  i  m  +  4.63E-8  *  ( CHENGi,j,m,\  ~  ■ 

For  surface  temperature  (m=  1): 

TAiX\  =  TAiX  1  -  GICEi,j  *  RICE0/30.00, 
where  RICEO  =  302.0E6/4.19E6. 

For  surface  salinity,  in  open  water,  the  atmospheric  heating  should  not  increase  or  decrease  the 
salinity  because  no  ice  melting  is  involved.  Open-water  grid  cells  are  indicated  by  AICE(iJ,2] 
<0.15,  HICE(iJ,2 )  <0.1,  and  SHICE(iJ )  <0.  For  open-water  grid  cells  (surface  level  only)! 
reset  ASH  to  0.  , 

For  surface  salinity: 

TAi>U2  =  TAi,  1,2  +  SHICE  *  0.035  *  AS///30.00. 

For  all  other  levels  ( k  *  1): 


TAi, bm  —  TAi,k,m  +  4.63E-8  *  {CHENG i,j,m,k~  TBi,k,m). 


5.  Compute  new  tracers,  resetting  land  points  to  0  by  multiplying  by  the  land  mask  array,  FM 
New  tracers  are  computed  by  multiplying  the  time  rate  of  change  of  tracer  values  (compute 
in  steps  1-4  above  and  represented  by  TA)  by  twice  the  timestep  on  T  and  adding  this  valu 
to  the  tracer  quantities  computed  for  the  timestep  before  present.  Factor  the  FM  array  into  th 
equation  to  force  0  values  for  array  elements  that  represent  land  points. 

6.  Set  salinity  to  45  ppt  over  land  to  stop  convection  there.  TAi,k>2  =  0  01  is  equal  to  45  ppt,  sine 
model  units  are  (ppt  -  35. 0)/l  000.0. 

7.  On  an  energy  timestep,  perform  analysis  of  tracer  forcing, 

a.  Compute  change  of  tracer  due  to  advection: 

TTDTOT2,m  =  TTDTOT2,m  +  BOXVOL  *  {{-FUWi+ u  *  (Ti+U,m  +  Ti,hm) 

+  FUWu  *  ( Ti,k,m  +  7m ,k,m))  *  DXT4R,  -  FVNi,k  *  ( TPuk,m  +  Tuk,m) 

+  FVSTi,^  *  {Ti,k,m  +  TMhicffi)).  1 


b.  Compute  change  of  tracer  due  to  horizontal  diffusion: 

TTDTOTa  m  =  TTDTOTa  m  +  BOXVOL  *  ( BBTJ  *  DXU2Ri  *  DXT4Rt  *  FMi+\  k 

*  (TBl+l,k,m  -  TBi,k,m )  +  BBTJ  *  DXU2R^  *  DXT4R,  *  FM,_i ,k 

*  (TBi-i,k,m  —  TBi,k,m)  +  CCTJ  *  FMPi,k  *  {TBP i,k,m  —  TBi,k,m ) 

+  DDTJ  *  FMMi,k  *  {TBMi,k,m  -  TBt,k,m)). 


c.  Compute  change  of  tracer  due  to  vertical  diffusion: 

TTDTOTsjn  =  TTDTOT5,m  +  BOXVOL  *  {EEHk  *  {TDIFi,k,m  -  TDIFi,k+hm )  -  FFHk 
*  ( TDIF i,k+\  ,m  —  TDIF i,k+2,m)). 

d.  Add  in  contribution  from  Newtonian  boundary  condition  of  temperature  and  salinity  at  t] 
ocean  surface. 
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For  surface  temperature: 

TTDTOTs, i  =  TTDTOTs, \  +  4.63E-8  *  (CHENG bJ,m,k  -  TBukm)  *  DZk 
GICEuj  *  RICEO  *  DZk! 30.00. 

For  surface  salinity: 

TTDTOTs,!  =  TTDTOTs y2  +  4.63E-8  *  (CHENGi,j,m,k-TBi,k,m)  *  DZk 

+  SHICEuj  *  0.035  *  ASH  *  DZk/ 30.00, 
for  other  than  surface  grid  cells  (k*  1). 

For  temperature: 

TTDTOTs yl  =  TTDTOTs +  4.63E-8  *  (CHENGbJ,m,k-  TBbk,m)  *  DZk. 

For  salinity: 

TTDTOTs, 2  =  TTDTOTs y2  +  4.63E-8  *  (CHENGi,j,m,k  ~  TBuk,m)  *  DZk. 

e.  Compute  total  energy  exchange  between  potential  and  kinetic: 

BUOY  =  BUOY -FX  *  DZZk  *  Wuk  *  (RHOShk-i+  RHOSi,k ) 

8.  Convectively  adjust  water  column  if  gravitationally  unstable.  Allow  for  variable  number  of 
passes  through  convection  loop  using  an  outer  loop  with  limits  from  1  to  NCON  where  NCON 
is  presently  hardwired  to  1. 

a.  Call  CSU  STATEC  to  compute  density  for  entire  slab  to  determine  stability. 

b.  For  each  tracer,  mix  adjoining  levels  if  unstable.  Tracers  are  unstable  if  density  of  a  grid  cell 
is  greater  than  the  density  of  the  grid  cell  below  it.  To  mix  unstable  grid  cells: 

TAi,k,m  =  (DZk  *  TAi,k,m  +  DZk+\  *  TAi,k+  i>m)  *  DZZ2Rk+\. 

Integrate  changes  and  prepare  for  next  timestep: 

1.  Integrate  total  changes  in  T,  S  and  squared  T,  S  on  energy  timestep. 

2.  Accumulate  integrated  absolute  changes  in  T  every  NTSI  timesteps. 

3.  Transfer  quantities  computed  to  the  north  of  the  present  row  to  be  defined  to  the  south  in  the 
computation  of  the  next  row. 

4.  Set  new  velocities  at  northern  wall  to  0  since  no  pass  through  CSU  CLINIC  is  made  for  this 
row. 

3.4.5  CSC  Compute  External  Mode 

The  external  mode  of  velocity  must  be  computed  in  terms  of  a  mass  transport  stream  function. 

3.4.5.1  CSU  CRELAX 

CSU  CRELAX  is  called  once  at  the  end  of  each  timestep  by  CSU  OSTEP.  It  takes  the  vorticity 
function  computed  in  CSU  CLINIC  and,  using  sequential  overrelaxation,  solves  the  LaPlacian 
equation  for  the  external  mode  of  velocity  in  terms  of  a  mass  transport  stream  function. 
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3.4.5. 1.1  CSU  CRELAX  Design  Specification/Constraints  -  There  are  no  known  constraints. 


4.4.5. 1.2  CSU  CRELAX  Design 

Input  Data  Elements: 

/FIELDS/ 

HR  reciprocal  of  total  depth  at  U,V  point 

P  mass  transport  stream  function 

PB  mass  transport  stream  function  for  previous  timestep 

ZTD  change  of  vorticity  across  one  timestep 


/FULLWD/ 

EB 

IEIS 

IEZ 

ISIS 

ISZ 

ITT 

JEIS 

JSIS 

KFLDS 

MIX 

MXP 

MXSCAN 


if  true:  the  current  step  is  a  Euler  backward  timestep 

array  of  I  ending  indices  for  island  boxes  i 

array  of  ending  indices  for  vorticity  ' 

array  of  I  starting  indices  for  island  boxes 

array  of  starting  indices  for  vorticity 

timestep  counter 

array  of  J  ending  indices  for  island  boxes 
array  of  J  starting  indices  for  island  boxes 

disk  unit  number  for  two-dimensional  horizontal  fields  and  start  and  en< 
indices;  =  12 

mixing  timestep  indicator;  set  equal  to  1  on  a  mixing  timestep 
if=  1,  second  pass  of  a  Euler  backward  timestep 
maximum  number  of  scans  allowed  for  convergence 


/ONEDIM/ 

CS 

CST 

CSTR 

DXT 

DXTR 

DXUR 

DYT 

DYTR 

DYUR 

SINEA 


cosine  of  U,V  point  latitudes 

cosine  of  T  point  latitudes 

reciprocal  of  cosine  of  T  point  latitudes 

zonal  grid  spacing  across  T  boxes 

1.0/DXT 

1.0/DXU 

meridional  grid  spacing  across  T  boxes 

reciprocal  of  meridional  grid  spacing  across  T  boxes  (between  U,V  points 
reciprocal  of  meridional  grid  spacing  across  U,V  boxes  (between  T  points 
sine  of  U,V  point  latitude  in  the  Earth-oriented  coordinates;  used  to  comput 
Coriolis  force  'i 


/SCALAR/ 

ACOR  if  >  0,  treat  the  Coriolis  term  implicitly  with  forward  component  weight 

by  ACOR,  past  component  by  1  -  ACOR 
C2DTSF  DTSF  x  2 

CRIT  criterion  for  convergence  of  relaxation 

OMEGA  rate  of  rotation  of  the  coordinate  system 
SOR  coefficient  of  overrelaxation 

Output  Data  Elements: 

/FIELDS/ 

P  mass  transport  stream  function 

PB  mass  transport  stream  function  for  previous  timestep 
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/FULLWD/ 


MSCAN 

scan  counter 

/WORKSP2/ 

CFE 

coefficient  of  eastern  point  in  LaPlacian  star 

CFN 

coefficient  of  northern  point  in  LaPlacian  star 

CFS 

coefficient  of  southern  point  in  LaPlacian  star 

CFW 

coefficient  of  western  point  in  LaPlacian  star 

COF 

normalization  array  in  computation  of  island  flow 

COFIS 

integral  of  COF 

CPF 

normalization  factor  used  in  constructing  LaPlacian  star 

ISMASK 

gridpoint  type  indicator:  =  0  over  interior  points;  =  1  over  perimeter  points; 
=  2  over  land  points 

PTD 

change  of  stream  function  across  a  timestep 

PTDB 

change  of  stream  function  across  previous  timestep 

RES 

residual  of  relaxation 

Parameters: 

stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4.1. 1.2. 

Logic  Flow: 

Prepare  for  the  relaxation: 

Begin  introductory  section  to  prepare  for  the  relaxation: 

1.  Initialize  working  arrays. 

2.  Read  in  the  relaxation  solution  from  the  timestep  before  present  and  the  relaxation  solution  of 
the  present  timestep. 

3.  Form  island  mask  by  distinguishing  interior  ocean  points,  perimeter  ocean  points,  and  land 
points. 

4.  Calculate  the  depth  field  from  the  depth  field  reciprocal  array. 

5.  Ensure  that  all  points  over  land  are  exactly  0. 

6.  Generate  arrays  of  coefficients  for  relaxation. 

a.  Compute  coefficients  of  the  LaPlacian  star,  augment  coefficients  for  implicit  treatment  of 
Coriolis  term,  and  normalize. 

Northern  point  correction  coefficient: 

CFNhj  =  2.0  *  CSj  *  CSTRj  *  DYTRj  *  DYURj/(H^ij  +  Hitj) 

CFNi,j  =  CFNi,j  +  ( HRuj  -  HR^j)  *  SINEAi,j  *  FX  *  DXTRt 

CFNi,j=CFNi,j*  CPFi. 

Southern  point  correction  coefficient: 

CFSi,j  =  2.0  *  CSh i  *  CSTRj  *  DYTRj  *  DYURj.\t{Hi.lj.l  +  HN. i) 
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CFSi,j  =  CFSi,j-(HRi,j. i  -  HRi-ij-i)  *  SINEAitJ- 1  *  FX*  DXTRi 
CFSuj  =  CFSi,j  *  CPF t. 

Eastern  point  correction  coefficient: 

CFEuj  =  2.0  *  CSTRj2  *  DXURi  *  DXTRAHuj  +  H,v_i) 

CFEuj  =  CFEuj  -  (HRi,j  *  SINEAuj  -  HRuj-i  *  SINEAuj-  i)  *  FX*  DXTRi 
CFEuj  =  CFEuj*  CPF u 

Western  point  correction  coefficient: 

CFWi,j  =  2.0  *  CSTRj2  *  DXURi- l  *  DXTRAHi-ij  +  tf;_i  J-l) 

CFWi,j  =  CFWfy  +  (HRi-lj  *  SINEAuj  -  HRi-ij-i  *  SINEAuj.^)  *  FX  *  DXTRi 
CFWi,j  =  CFWi,j  *  CPFi, 

where  FX  =  -C2DTSF  *  ACOR  *  CSTRj  *  DYTRj  *  OMEGA.  j 

b.  Compute  coefficients  on  island  perimeter  points.  Identify  islands  according  to  start  and  sto 
island  indices  stored  in  ISIS,  IEIS,  JSIS,  and  JEIS  for  ISMASK  array.  A  value  of  1  is  use 
to  indicate  island  perimeter  points  in  the  ISMASK  array. 

Island  coefficients  are  computed  based  on  which  side  of  the  grid  cell  is  adjacent  to  lan 
(identified  by  HR  =  0). 

Assign  northern  coefficient  if  HRi-ij  is  not  0  or  HRuj  is  not  0: 

CFNuj  =  (2.0  *  CSj  *  DYURj  *  DYTRj  *  CSTRj)/(PTDi-ij  +  PTDuj) 

+  FX*  DXTRi  *  ( HRUj  -  HR^uj)  *  SINEAi,j. 

Assign  southern  coefficient  if  HRi-\j-\  is  not  0  or  HRj,j- 1  is  not  0: 

CFSi,j  =  FX/iPTDi-xj- 1  +  PTDi,j-i)  -  FXD  *  DXTRi  *  (HRuj- 1  -  HRi-ij-i)  *  SINEA^. 

Assign  eastern  coefficient  if  HRi,j  is  not  0  or  HRuj-\  is  not  0: 

CFEi,j  =  FXA  *  DXTRi  *  DXURi/(PTDuj  +  PTDuj- 1)  -  FXD  *  DXTRi 

*  ( HRhj  *  SINEAuj  -  HRi,j  *  SINEAuj- 0- 

Assign  western  coefficient  if  HRi_i  j  is  not  0  or  HRj_i  j_i  is  not  0: 

CFWi,j  =  FXA  *  DXTRi  *  DXURi-i/(PTDi-ij  +  PTDi-ij- i)  +  FXD  *  DXTRi 

*  (HRi-ij  *  SINEAuj-HRi-ij-x  *  SINEAuj- i). 

Multiply  all  island  perimeter  coefficients  CFN,  CFS,  CFE,  and  CFW  by  COF  normalizatic 
array. 

Sum  COFIS  over  all  island  grid  boxes. 

c.  Multiply  all  of  the  CFN,  CFS,  CFE,  and  CFW  coefficients  by  the  overrelaxation  factor  SC 
read  in  from  NAMELIST  PARMS.  Also  set  COFIS  for  the  island  equal  to  its  reciproca 
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7.  Compute  a  first  guess  for  the  relaxation  by  extrapolating  the  two  previous  solutions  forward  in 
time: 

a.  Finish  reading  in  the  relaxation  solution  of  the  previous  timestep,  array  PTD. 

b.  Perform  time  extrapolation,  accounting  for  the  mixing  timestep. 

PTDi,j  =  FXA  *  (2.0  *  PTDi,j  -  PTDBj,j), 

where  FXA  =  0.5  on  a  mixing  timestep  and  1.0  otherwise. 

8.  Compute  criterion  for  the  convergence  of  relaxation:  CRTP  =  CRIT  *  FXA  *  SOR. 

9.  Initialize  residuals  array  RES  to  0. 

Loop  to  compute  the  relaxation: 

This  algorithm  uses  the  method  of  successive  overrelaxation  where  a  guess  is  made  for  all  grid 
cells  variant  in  P  (the  stream  function),  a  residual  is  computed  based  on  the  stream  function  and 
the  boundary  conditions,  and  a  new  guess  is  established  from  the  residual.  This  process  is  iterated 
until  the  change  in  P  between  guesses  is  less  than  the  specified  criterion. 

1.  Compute  entire  field  of  residuals  as  in  simultaneous  relaxation: 

RESuj  =  CFNi,j  *  PTDi,j+\  +  CFSuj  *  PTD uj-i  +  CFEUj  *  PTDi+ij  +  CFWuj 
*  PTDi. i  j  -  SOR  *  ( PTDi,j  +  ZTDuj). 

2.  Reset  residuals  over  land  to  0  based  on  start  and  end  indices  in  arrays  ISZ  and  IEZ. 

3.  Perform  correction  on  southern  point  to  yield  sequential  relaxation  using  correction  factor 
computed  in  the  initialization  procedure: 

RESi,j  =  RESi,j  +  CFSi,j  *  RESuj-i- 

4.  Perform  correction  on  western  point  to  yield  sequential  relaxation  using  correction  factor  com¬ 
puted  in  the  initialization  procedure: 

RESi,j  =  RESi,j  +  CFWhj  *  RESuj- 1 . 

5.  Correct  change  of  stream  function  based  on  residuals  by  adding  RESi,j  to  PTDuj. 

6.  Find  the  maximum  absolute  residual  to  determine  convergence. 

7.  Do  hole  relaxation  for  each  island  and  loop  for  the  number  of  islands  in  the  model  basin, 
a.  Compute  island  residuals: 

Initialize  island  residual  ( RESIS)  to  0. 

Loop  for  the  meridional  start  to  stop  island  grid  boxes  (index  J). 

Loop  for  the  zonal  start  to  stop  island  grid  boxes  (index  I). 

If  ISMASKi,j  equals  1,  increment  RESIS  for  this  grid  box: 

RESIS  =  RESIS  +  (CFNbj  *  PTDhj+1  +  CFSuj  *  PTD ,v_i  +  CFEt,j  *  PTDi+ij  +  CFWi,j 
*  PTDi-ij  -  SOR  *  (PTDi,j  +  ZTDuj))  *  COFuj. 
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b.  Normalize  the  island  residual  by  its  coefficient  COFIS  and  update  the  maximum  absolute 
residual  of  the  relaxation  if  necessary. 

c.  Correct  change  of  stream  function  over  the  island  and  its  perimeter  points  by  adding  the 
island  residual  to  it. 

8.  Test  the  maximum  residual  for  convergence  of  the  relaxation.  If  not  converged,  proceed  with 
another  scan  by  returning  to  step  1 .  If  the  maximum  number  of  scans  has  been  reached,  accepi 
the  solution  and  proceed  to  update  the  stream  function. 


Update  the  stream  function  based  on  the  relaxation  solution: 

1.  Update  the  stream  function  based  on  the  relaxation  solution.  On  the  second  pass  of  the  Eulei 
backward  timestep,  update  only  the  stream  function  for  the  present  timestep  P,  since  the  stream 
function  for  the  timestep  before  present  PB  was  updated  on  the  first  pass.  If  the  current  timestep 
is  not  the  second  pass  of  a  Euler  backward  timestep,  update  the  stream  functions  for  the  preseni 
timestep  and  the  timestep  before  present. 

2.  Save  change  of  stream  function  to  compute  first  guess  for  relaxation  next  timestep.  Bypass  thid 

section  on  the  first  pass  of  a  Euler  backward  timestep,  since  it  will  be  done  on  the  second  passl 
Multiply  the  change  of  stream  function  by  2  if  on  a  mixing  timestep  or  if  on  the  second  pass  oi 
a  Euler  backward  timestep.  j 


3.4.6  CSC  Direct  Access  Manager 

The  ocean  model  requires  a  set  of  routines  that  interface  it  with  the  local  system  I/O  facility 

3.4.6.1  CSU  ODAM 

CSU  ODAM  consists  of  several  entry  points  that  collectively  fulfill  the  requirements  of  CSC 
Direct  Access  Manager. 

3. 4.6.1. 1  CSU  ODAM  Design  Specification/Constraints  -  CSU  ODAM  will  consist  of  severa 
entry  points  instead  of  subroutines  because  of  the  close  relationships  between  the  I/O  routines.  Fo 
the  core-contained  mode,  the  routines  contained  in  CSU  ODAM  must  manage  the  transfer  of  dat; 
as  if  they  resided  in  different  files.  In  actuality,  data  for  five  logical  units  will  all  be  stored  in  th 
same  array  (virtual  disk).  Logical  units  LABS(l),  LABS(2),  and  LABS(3)  (13,14,  and  15,  respectively 
will  be  used  for  primary  slab  data.  Logical  unit  KFLDS  (set  to  12)  will  be  used  for  two-dimensions 
horizontal  fields  and  logical  unit  KONTRL  (set  to  11)  will  be  used  for  the  timestep  counter,  tots 
elapsed  time,  and  the  area  and  volume  of  the  basin.  Data  stored  in  each  of  these  units  will  be  store 
in  an  array  in  contiguous  slots  and  in  ascending  order  on  logical  unit  number  (e.g.,  data  for  unit  1 
will  be  located  in  the  first  slot,  data  for  unit  12  in  the  second,  and  so  forth). 

3.4.6. 1.2  CSU  ODAM  Design 

Input  Data  Elements: 


A 

origination/destination  array  in  memory 

LO 

I/O  unit  number 

LU 

I/O  unit  number 

NBLK 

length  of  each  block  on  the  unit 

NBUF 

number  of  buffers  supplied  to  the  unit 

NFRST 

unit  address  of  the  first  word  to  be  transferred 

NTOT 

length  of  unit  in  words 
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NWRS  number  of  words  to  transfer 

BIG  read  from  tape  to  initialize  virtual  disk  and  later  stored  to  tape  to  save 

contents  of  virtual  disk 

Output  Data  Elements: 

A  origination/destination  array  in  memory 

BIG  read  from  tape  to  initialize  virtual  disk  and  later  stored  to  tape  to  save 

contents  of  virtual  disk 

Contents  of  array  BIG  and  more  detailed  ODAM  I/O  virtual  disk  access  information  is  contained 
in  Sec.  3.4.6. 

Local  Data  Elements: 

Nil  20 

N12  907200 

NE  address  of  the  last  word  to  retrieve  from  array  C 

NS  address  of  the  first  word  to  retrieve  from  array  C 

NSKP  number  of  words  to  skip  on  retrieval  from  array  C 

NSL  8035200 

NTB  16977620 

Parameters: 

stored  in  file  ocean.par 

The  ocean.par  parameters  are  described  in  Sec.  3.4.1. 1.2. 

stored  in  file  odam.par 

Nil  20 

N12  907200 

NSL  8035200 

NTB  16977620 

Logic  Flow: 

Define  several  entry  points  to  simulate  direct  access  input/output: 

ENTRY  OGET 

ENTRY  OGET  will  retrieve  a  variable  number  of  words  from  array  C  and  store  them  in  array 
A.  For  LU >  11,  Ml  words  are  skipped  (represented  by  NSKP).  For  LU >  12,  M2  additional  words 
are  skipped.  For  the  first  word  retrieved  (NS),  NS  =  NFRST  +  NSKP  for  logical  units  =  1 1  or  12. 
The  first  word  retrieved  for  logical  units  >  13  is  computed  as  follows: 

NS  =  NSKP  +  (2  *  ((NFRST-  l)/NWRS)  +  (LU -  13))  *  NWRS  +  1. 

The  last  word  retrieved  (NE)  =  NS  +  NWRS-  1.  In  a  core-contained  mode,  data  is  retrieved 
from  array  C  for  elements  NS  through  NE  and  assigned  to  array  A  to  be  sent  back  to  the  calling 
routine. 


ENTRY  OPUT 

ENTRY  OPUT  transfers  a  variable  number  of  words  from  array  A  in  memory  and  stores  them 
in  array  C  on  virtual  disk.  The  starting  location  for  data  storage  is  first  determined  by  the  logical 
unit  number  LU  and  the  variable  NFRST  passed  in  the  argument  list.  For  logical  unit  numbers  >11, 
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the  number  of  words  to  skip  ( NSKP )  is  initialized  to  /VI 1.  For  logical  unit  numbers  >12,  th 
number  of  words  to  skip  is  incremented  by  an  additional  Nl  2.  The  start  location  for  data  storag 
(NS)  for  logical  units  <  13  =  NFRST  +  NSKP.  The  start  location  for  data  storage  for  logical  units  >  1 
is  computed  as  follows: 

NS  =  NSKP  +  (2  *  ((NFRST- l)/NWRS )  +  (LU -  13))  *  NWRS  +  1. 

The  ending  location  for  data  storage  (NE)  =  NS  +  NWRS  -  1.  Contiguous  data  elements  beginnin, 
with  the  first  word  of  array  A  are  stored  in  array  C  in  locations  NS  through  NE. 

ENTRY  ORD 

ENTRY  ORD  initializes  the  virtual  disk  from  tape.  The  array  BIG  (equivalenced  to  C)  is  reai 
from  the  tape  drive  logical  unit  number  LO. 

ENTRY  OWRT 

ENTRY  OWRT  saves  the  virtual  disk  data  to  tape.  Array  BIG  (equivalenced  to  C)  is  stored  oi 
the  tape  drive  logical  unit  number  LO.  ' 

ENTRY  OCLOSE 

In  core-contained  mode,  ENTRY  OCLOSE  does  not  perform  any  function  but  serves  as 
placeholder  for  future  conversion  to  actual  disk  I/O. 

ENTRY  OFIND 

In  core-contained  mode,  ENTRY  OFIND  does  not  perform  any  function  but  serves  as  a  place 
holder  for  future  conversion  to  actual  disk  I/O. 


3.5  CSC  Next  Timestep 

The  CSC  Next  Timestep  is  used  after  each  timestep  run  of  CSCs  Ice  and  Ocean  to  updal 
timestep  information.  Its  CSU  SWAP  calculates  a  new  date-time  group,  new  currents,  and  ne’ 
mixed-layer  temperatures  for  the  next  pass  through  the  ice  and  ocean  models. 

3.5.1  CSU  SWAP 

CSU  SWAP  meets  the  requirements  of  CSC  Next  Timestep  for  the  next  timestep.  It  also  swaj 
positions  of  currents,  temperatures  and  salinities  and  calculates  a  new  mixed-layer  temperature, 

3.5.1. 1  CSU  SWAP  Design  Specification/Constraint 
There  are  no  known  constraints. 

3.5.1.2  CSU  SWAP  Design 

Input  Data  Elements: 

/COX2/ 

FW1  heat  above  the  freezing  temperature 

GICE  ice  growth  rate  computed  by  the  ice  model 

TM1  previous  timestep  mixed-layer  temperature 

TM2  previous  two  timestep  mixed-layer  temperature 
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/CURNTS/ 

TO  present  timestep  of  temperature  and  salinity 

T1  previous  timestep  of  temperature  and  salinity 

T2  two  timesteps  ago  of  temperature  and  salinity 

UO  present  timestep  of  x  component  of  ocean  current 

U1  previous  timestep  of  x  component  of  ocean  current 

VO  present  timestep  of  y  component  of  ocean  current 

VI  previous  timestep  of  y  component  of  ocean  current 

/FULLWD/ 

NLAST  final  timestep  to  compute  on  this  run  of  model 

/OCEANS/ 

FW  oceanic  heat  flux 

/TSTEP/ 

IDTG  date-time  group;  read  from  standard  input  (YYMMDDHH) 

MDY  day  calculated  from  date-time  group 

MHR  hour  calculated  from  date-time  group 

MM  month  calculated  from  date-time  group 

MYR  year  calculated  from  date-time  group 

Output  Data  Elements: 

/COX2/ 

GICE  ice  growth  rate  computed  by  the  ice  model 

TFRZ  temperature  at  freezing  point 

TM1  previous  timestep  mixed-layer  temperature 

TM2  previous  two  timestep  mixed-layer  temperature 

/CURNTS/ 

T1 
T2 
U1 
VI 

/FULLWD/ 

NFIRST  restart  indicator;  =  1  to  start  from  scratch;  =  0  to  restart  from  data 
NLAST  final  timestep  to  compute  on  this  run  of  model 

NNERGY  10  timesteps  past  NLAST 

/OCEANS/ 

FW  oceanic  heat  flux 

/RFOR2/ 

GW  ATX  x  component  of  the  ocean  current 

GWATY  y  component  of  the  ocean  current 

/TSTEP/ 

IDTG  date-time  group;  read  from  standard  input  (YYMMDDHH) 

MDY  day  calculated  from  date-time  group 

MHR  hour  calculated  from  date-time  group 

MM  month  calculated  from  date-time  group 

MYR  year  calculated  from  date-time  group 


previous  timestep  of  temperature  and  salinity 
two  timesteps  ago  of  temperature  and  salinity 
previous  timestep  of  x  component  of  ocean  current 
previous  timestep  of  y  component  of  ocean  current 
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Local  Data  Elements: 

CP 

constant  of  water  heat  capacity 

real 

DELTAT 

timestep  in  seconds 

real 

EXCHNG 

number  of  times  to  exchange  ice-ocean  data 

real 

I 

index  counter 

integer 

IHR 

timestep  in  hours 

integer 

IMON 

index  counter  for  obtaining  current  month 

integer 

J 

index  counter 

integer 

KK 

index  counter 

integer 

RLATNT 

constant  of  water  latent  heat 

real 

TDAY 

timestep  to  exchange  ice-ocean  data 

real 

ZMIX 

depth  of  mixed  layer  (30  m) 

real 

Logic  Flow: 

The  next  timesteps’  date-time  group,  year,  month,  day,  and  hour  values  are  calculated.  Th< 
timestep  counters  are  updated.  Previous  timestep  temperature,  salinity,  and  current  fields  are  move< 
one  timesteps  backward.  Present  timestep  fields  are  moved  to  the  previous  timestep  fields.  Ney 
seawater  freezing  temperatures  are  calculated  according  to  salinity  as  -54.4  *  salinity.  Ice  thicknes 
growth  rate  of  open  water,  the  total  ice  thickness  growth  rate,  and  the  heat  above  the  freezin- 
temperature  from  the  present  timestep  are  swapped  with  the  previous  timestep.  If  the  growth  rat 
is  greater  than  that  of  the  heat  above  freezing  temperature,  and  the  heat  above  freezing  is  >  0 
the  growth  rate  is  set  to  0  (no  more  cooling).  A  new  heat  flux  is  calculated  and  its  value  is  divide* 
by  118. 

Algorithms: 

The  new  oceanic  heat  flux  is  calculated  using: 

Q  —  Cp  Zm  iXmi  ~  Tmil)/td/nt  +  GLW, 

where  cp  is  the  constant  of  water  heat  capacity, 
zm  is  the  depth  of  the  mixed  layer, 

Tmi  is  the  mixed-layer  temperature  from  the  previous  timestep, 

Tmj  ]  is  the  mixed-layer  temperature  from  two  timesteps  ago, 

td/nt  is  the  timestep  on  which  to  exchange  data  {td  is  the  number  of  seconds  in  a  day  an 
nt  is  the  number  of  times  to  exchange  data), 

G  is  the  ice  growth  rate,  and 

Lw  is  the  constant  of  water  latent  heat. 

3.6  CSC  Output 

The  CSC  Output  is  the  last  CSC  executed  in  PIPS2.0.  It  is  responsible  for  writing  the  data  fill 
containing  the  ice  model  and  ocean  model  restart  data.  These  restart  values  are  used  by  PIPS2.0  f 
next  model  run. 

3.6.1  CSU  SAVJCE 

The  purpose  of  the  CSU  SAVJCE  is  to  write  the  ice  model  restart  fields  to  a  file.  ' 

3.6.1.1  CSU  SAVJCE  Design  Specification/Constraint 

The  ice  model  restart  data  are  written  to  a  file  connected  to  unit  33. 
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3.6.1.2  CSU  SAV_ICE  Design 
Input  Data  Elements: 

/RSTRT/ 

AREA1  fraction  of  the  grid  cell  covered  by  thick  ice 

HEFF  mean  ice  thickness  per  grid  cell 

TICE  mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice  cover 


UICE 

x  component  of  the  ice  drift 

UICEC 

intermediate  x  component  of  the  ice  drift 

VICE 

y  component  of  the  ice  drift 

VICEC 

intermediate  y  component  of  the  ice  drift 

Output  Data  Elements: 

UICE 

x  component  of  the  ice  drift 

UICEC 

intermediate  x  component  of  the  ice  drift 

VICE 

y  component  of  the  ice  drift 

VICEC 

intermediate  y  component  of  the  ice  drift 

HEFF 

mean  ice  thickness  per  grid  cell 

AREA1 

fraction  of  the  grid  cell  covered  by  thick  ice 

TICE 

mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice  cover 

Parameters: 

stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1. 2. 

Data  element  design  information  is  provided  in  Sec.  4.0. 

Logic  Flow: 

The  SAV_ICE  CSU  is  called  by  CSU  DRIVER. 

All  restart  fields  are  written  to  a  file  connected  to  unit  33.  These  restart  fields  include  x  and 
y  components  of  the  ice  drift  (UICE  and  VICE),  intermediate  x  and  y  components  of  the  ice  drift 
(UICEC  and  VICEC),  mean  ice  thickness  per  grid  cell  (HEFF),  fraction  of  the  grid  cell  covered  by 
thick  ice  (AREA1),  and  mixed-layer  temperature  for  open  water  or  ice  temperature  for  ice  cover 
(TICE). 

Local  data  files  or  database: 

The  restart  data  are  written  to  the  92<mmdd>.res  (unit  33)  file,  where  <mmdd>  is  the  month 
and  day  of  the  current  day.  This  file  is  a  permanent,  binary  file  that  contains  the  x  and  y  components 
of  the  ice  drift,  the  intermediate  x  and  y  components  of  the  ice  drift,  the  mean  ice  thickness  per 
grid  cell,  the  fraction  of  the  cell  covered  by  thick  ice,  and  the  mixed-layer  temperature  in  the  case 
of  open  water  or  the  ice  temperature  in  the  case  of  an  ice  cover.  The  data  in  this  file  are  used  to 
restart  a  run. 

3.6.2  CSU  SAV_OCN 

The  purpose  of  the  CSU  SAV_OCN  is  to  write  the  ocean  model  restart  fields  to  a  file. 

3.6.2.1  CSU  SAV_OCN  Design  Specification/Constraint 

The  ocean  model  restart  data  are  written  to  a  file  connected  to  unit  30. 


114 


Preller,  Posey,  and  Cro 


3.6. 2.2  CSU  SAV_OCN  Design 

Input  Data  Elements: 

/COX2/ 

FW1  heat  above  the  freezing  temperature 

GICE  ice  growth  rate  computed  by  the  ice  model 

SHICE  total  ice  thickness 


/CURNTS/ 

TO 

T1 

UO 

U1 

VO 

VI 


present  timestep  of  temperature  and  salinity 
previous  timestep  of  temperature  and  salinity 
present  timestep  of  x  component  of  ocean  current 
previous  timestep  of  x  component  of  ocean  current 
present  timestep  of  y  component  of  ocean  current 
previous  timestep  of  y  component  of  ocean  current 


/FULLWD/ 

ITT  timestep  counter 

Output  Data  Elements: 

ITT  timestep  counter 

UO  present  timestep  of  x  component  of  ocean  current 

VO  present  timestep  of  y  component  of  ocean  current 

TO  present  timestep  of  temperature  and  salinity 

U1  previous  timestep  of  x  component  of  ocean  current 

VI  previous  timestep  of  y  component  of  ocean  current 

T1  previous  timestep  of  temperature  and  salinity 

Parameters: 
stored  in  file  ice.par 

The  ice.par  parameters  are  described  in  Sec.  3. 1.1.2. 

Local  Data  Elements: 

I  index  counter 

J  index  counter 

M  index  counter 

Logic  Flow: 

The  CSU  SAV_OCN  is  called  by  CSU  DRIVER. 

All  restart  fields  are  written  to  a  file  connected  to  unit  30.  The  restart  fields  include  the  i< 
growth  rate,  present  and  previous  timesteps  of  temperature  and  salinity,  and  the  present  and  previo' 
timesteps  of  the  x  and  y  components  of  ocean  current. 

Local  data  files  or  database: 

The  restart  data  are  written  to  the  forO  1 0_<  mmdd> . dat  (unit  30)  file,  where  <mmdd>  is  t 
month  and  day  of  the  current  day.  This  file  is  a  permanent,  binary  file.  The  data  in  this  file  is  us< 
to  restart  the  next  model  run. 


integer 

integer 

integer 


4.0  PIPS2.0  DATA  TABLES  I 

Data  Tables  are  presented  for  the  two  higher  level  CSCs:  CSC  Compute  Ice  and  CSC  CompJ 
Ocean.  I 
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4.1  Ice  Data  Table 


This  section  describes  the  global  data  elements  of  CSC  Compute  Ice. 


NAME 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

A22 

real 

minimal  compactness  allowed 
defined  by  data  statement;  (0.15) 

ICEMDL, 

HEAT 

GROWTH, 

HEAT,  ICEMDL 

local 

variable 

AMASS 

real 

ice  mass  per  grid  area  defined  by 
data  statement;  array  with 
dimensions  (/MT,7MT) 

FORM 

FORM,  ICEMDL, 
RELAX 

local 

variable 

AREA1 

real 

fraction  of  grid  cell  covered  by  ice; 
read  from  restart  data  file  or 
initialized  to  constant  initial 
condition;  array  with  dimensions 
(7MT,7MT,3) 

RST.ICE 

DRIVER,  FORM, 
GROWTH, 

HEAT,  ICEMDL, 
RSTJCE, 
SAV_ICE,  SSMI, 
STRESSUP, 
TRACER 

RSTRT 

CFO 

real 

heat  above  freezing  in  terms  of  ice 
thickness  growth  rate  or  ice 
thickness  growth  rate  in  open  water, 
array  with  dimensions  (/MT,JMT) 

HEAT 

HEAT 

COX2 

DELTAT 

real 

timestep  (s) 

ICEMDL 

ADVECT, 

BUDGET, 

GROWTH, 

ICEMDL, 

RELAX,  SWAP 

STEP 

DELTAX 

real 

x  (longitude)  grid  spacing  (deg) 

ICEMDL, 

SWAP 

ADVECT, 

DIFFUS, 

ICEMDL, 

PLAST,  SWAP 

STEP 

DELTAY 

real 

y  (latitude)  grid  spacing  (deg) 

ICEMDL, 

SWAP 

ADVECT, 

DIFFUS, 

ICEMDL, 

PLAST,  RELAX, 
SWAP 

STEP 

DELTT 

real 

timestep  based  on  type  of  timestep 
differencing  (h) 

ICEMDL 

ADVECT, 

DIFFUS, 

ICEMDL 

local 

variable 

DELTXA 

real 

x  (longitude)  grid  spacing  for 
thermodynamic  fields  (m);  array 
with  dimensions  (JMT) 

ICEMDL 

ADVECT, 

DIFFUS,  PLAST, 
ICEMDL 

STEPSP 

DELTXU 

real 

x  (longitude)  grid  spacing  for 
velocity  fields  (m);  array  with 
dimensions  (JMTMl) 

ICEMDL 

FORM, 

GEOWIND, 
ICEMDL,  RELAX 

STEPSP 
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NAME 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

csu 

USED  IN 

DELTYA 

real 

y  (latitude)  grid  spacing  for 
thermodynamic  fields  (m) 

ICEMDL 

ADVECT, 

DIFFUS, 

ICEMDL,  PLAST 

DELTYU 

real 

y  (latitude)  grid  spacing  for  velocity 
fields  (m) 

ICEMDL 

FORM, 

GEOWIND, 
ICEMDL,  RELAX 

DIFFl 

real 

harmonic  diffusion  constant 

ICEMDL 

ADVECT, 

DIFFUS,  ICEMDL 

DIFF3 

real 

harmonic  diffusion  constant;  array 
with  dimensions  (7MT) 

ADVECT 

ADVECT, 

DIFFUS 

DRAGA 

real 

asymmetric  water  drag  plus  the 
Coriolis  parameter;  array  with 
dimensions  (7MT,JMT) 

FORM 

RELAX, 

ICEMDL 

DRAGS 

real 

symmetric  water  drag;  array  with 
dimensions  (7MT,7MT) 

FORM 

RELAX, 

ICEMDL 

ERROR 

real 

maximum  error  allowed  in  the 
relation  scheme  defined  by  data 
statement  (0.000001) 

ICEMDL 

ICEMDL, 

RELAX 

ES 

real 

NOGAPS  atmospheric  forcing  — 
surface  vapor  pressure;  array  with 
dimensions  (7MTP1,JMTP1) 

RFORCE 

HEAT,  RFORCE 

ESI 

real 

NOGAPS  atmospheric  forcing  — 
sensible  heat  flux;  array  with 
dimensions  (/MTP1,JMTP1) 

RFORCE 

HEAT,  RFORCE 

ETA 

real 

nonlinear  shear  viscosity;  array  with 
dimensions  (/MT,7MT) 

PLAST 

FORM,  ICEMDL, 
RELAX 

FCORSP 

real 

array  of  sine  of  latitude  positions  of 
each  gridpoint;  array  with 
dimensions  (7MTP1,7MTP1) 

DRIVER 

DRIVER,  FORM, 
GEO  WIND, 

OCEAN 

FHEFF 

real 

total  ice  growth  rate  of  thick  ice: 
array  with  dimensions  (/MT,JMT) 

HEAT 

GROWTH, 

HEAT,  ICEMDL, 

FO 

real 

growth  rate  of  thin  ice;  array  with 
dimensions  (NXl,NYl) 

HEAT 

GROWTH, 

HEAT,  ICEMDL 

FORCEX 

real 

x  component  of  forcing  due  to  the 
ocean  currents  plus  the  ice  pressure 
gradient;  array  with  dimensions 
(7MTM 1 ,,/MTM  1 ) 

FORM 

RELAX,  FORM 

FORCEY 

real 

x  component  of  forcing  due  to  the 
ocean  currents  plus  the  ice  pressure 
gradient;  array  with  dimensions 
(7MTM 1 ,  JMTM 1 ) 

FORM 

RELAX,  FORM  i 

COMMON 

BLOCK 


STEPS P 


DIFFU3 


local 

variable 


local 

variable 


local 

variable 


variable 


Software  Test  Description  for  PIPS2.0 


117 


NAME 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

FSH 

real 

atmospheric  forcing  —  solar 
radiation;  array  with  dimensions 
(7MTP1,7MTP1) 

RFORCE 

BUDGET,  HEAT, 
RFORCE 

RAD 

FW 

real 

oceanic  heat  flux;  array  with 
dimensions  (7MT,7MT) 

RST_OCN 

BUDGET,  HEAT, 
OCEAN, 

RST_OCN,  SWAP 

OCEANS 

FW1 

real 

heat  above  the  freezing  temperature; 
array  with  dimensions  (7MT,7MT) 

HEAT, 

RST_OCN 

HEAT, 

RST_OCN, 

SAV.OCN, 

TRACER 

COX2 

FW2 

real 

oceanic  heat  flux  (watts/m2);  array 
with  dimensions  (IMT,JMT) 

BUDGET 

BUDGET 

COX2 

GAIRX 

real 

x  component  of  the  geostrophic 
wind;  array  with  dimensions 
(7MTP1,7MTP1) 

RFORCE 

DRIVER,  FORM, 
HEAT,  ICEMDL, 
RFORCE, 
STRESSUP 

RFOR2 

GAIRY 

real 

y  component  of  the  geostrophic 
wind;  array  with  dimensions 
(/MTP1,JMTP1) 

RFORCE 

DRIVER,  FORM, 
HEAT,  ICEMDL, 
RFORCE, 
STRESSUP 

RFOR2 

GAREA 

real 

change  of  compactness  due  to 
freezing  or  melting;  array  with 
dimensions  (/MTP1,JMTP1) 

GROWTH 

ICEMDL 

local 

variable 

GICE 

real 

ice  thickness  growth  rate  of  open 
water;  array  with  dimensions 
(7MT,JMT) 

HEAT, 

RST_OCN 

HEAT, 

RST.OCN, 

SAV_OCN, 

SWAP,  TRACER 

COX2 

GWATX 

real 

x  component  of  ocean  current  (m/s); 
array  with  dimensions 
(/MTM1,JMTM1) 

RST_OCN, 

SWAP 

DRIVER,  FORM, 

ICEMDL, 

RST_OCN, 

SWAP 

RFOR2 

GWATY 

real 

y  component  of  ocean  current  (m/s); 
array  with  dimensions 
(7MTM1,7MTM1) 

RST.OCN, 

SWAP 

DRIVER,  FORM, 

ICEMDL, 

RST_OCN, 

SWAP 

RFOR2 

HCORR 

real 

additional  ice  to  be  melted  for 
mixed-layer  balance;  array  with 
dimensions  (7MT,JMT) 

GROWTH 

ICEMDL 

local 

variable 

HDIFFl 

real 

net  rate  of  total  open  water  growth; 
array  with  dimensions  (/MT,7MT) 

HEAT 

GROWTH, 

ICEMDL 

local 

variable 
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NAME 

DATA 

TYPE 

DESCRIPTION 

HEFF 

real 

mean  ice  thickness  per  grid  cell; 
read  from  restart  data  file  or 
initialized  to  constant  initial 
condition;  array  with  dimensions 
(7MT,JMT,3) 

HEFFM 

real 

land/sea  mask  for  thermodynamic 
variables;  array  with  dimensions 
(/MT,JMT) 

HO 

real 

demarcation  between  thick  and  thin 
ice  defined  by  data  statement;  (0.5  m) 

IDTG 

integer 

date-time  group;  read  from  standard 
input  (YYMMDDHH) 

IMT 

integer 

total  number  of  T  grid  boxes 
zonally  (360) 

IMTM1 

integer 

total  number  of  T  grid  boxes 
zonally  - 1  (359) 

IMTPl 

integer 

total  number  of  T  grid  boxes 
zonally  + 1  (361) 

IRSTRT 

integer 

if  0  restarts  from  previous  run; 
otherwise,  restarts  from  constant 
conditions;  read  from  standard  input 

ITSTEP 

integer 

number  of  timesteps  for  run;  read 
from  standard  input 

JMT 

integer 

total  number  of  T  grid  boxes 
meridionally  (360) 

JMTMl 

integer 

total  number  of  T  grid  boxes 
meridionally  -  1  (359) 

JMTP1 

integer 

total  number  of  T  grid  boxes 
meridionally  +  1  (361) 

LAD 

integer 

type  of  timestepping  defined  by 
data  statement  (2) 

csu 

DEFINED  IN 


ICEMDL 


ICEMDL 


DRIVER 


DRIVER 


CSU 

USED  IN 


ADVECT, 

DIFFUS, 

DRIVER,  FORM, 

GROWTH, 

ICEMDL,  HEAT, 

RNEGT, 

RSTJCE, 

RST_OCN, 

SAVJCE,  SSMI, 

STRESSUP, 

XSUM 


ADVECT, 
BNDRY,  DIFFUS, 
DRIVER,  FORM, 
GROWTH, 
ICEMDL,  PLAST 


ICEMDL, 

GROWTH 


DAYNUM, 
ICEMDL,  SWAP 


COMMON 

BLOCK 


local 

variable 


local 

variable 


DRIVER, 

ICEMDL 


TSTEP 


local 

variable 


ICEMDL 


ADVECT, 

ICEMDL 
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NAME 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

MDY 

integer 

day  calculated  from  date-time 
group 

DAYNUM 

DAYNUM, 
DRIVER, 
ICEMDL,  SWAP 

TSTEP 

MHR 

integer 

hour  calculated  from  date-time 
group 

DAYNUM 

DAYNUM, 

DRIVER, 

ICEMDL,  SWAP 

TSTEP 

MIDY 

integer 

defined  by  parameter  statement 
(160) 

ICEMDL, 

ADVECT, 

OCEAN, 

RELAX 

ADVECT, 

ICEMDL, 

OCEAN,  RELAX 

local 

variable 

MM 

integer 

month  calculated  from  date-time 
group 

DAYNUM 

DAYNUM, 

DRIVER, 

ICEMDL,  SWAP 

TSTEP 

MYR 

integer 

year  calculated  from  date-time 
group 

DAYNUM 

DAYNUM, 

DRIVER, 

ICEMDL,  SWAP 

TSTEP 

NXMl 

integer 

/MT-2;  defined  by  parameter 
statement  (358) 

ADVECT 

ADVECT 

local 

variable 

NYM1 

integer 

/MT-2;  defined  by  parameter 
statement  (358) 

ADVECT 

ADVECT 

local 

variable 

OUT 

real 

land/sea  mask  including  outflow 
conditions  for  thermodynamic 
variables;  array  with  dimensions 
(7MT,/MT) 

BNDRY 

BNDRY, 

DRIVER,  FORM, 

GROWTH, 

ICEMDL 

MASK 

PLTSTP 

integer 

interval  in  timesteps  at  which  to 
plot  results;  read  from  standard 
input 

DRIVER 

DRIVER 

TSTEP 

PRESS 

real 

ice  strength;  array  with  dimensions 
(/MT,7MT) 

FORM 

PLAST,  FORM 

PRESS 

PRTSTP 

integer 

interval  in  timesteps  at  which  to 
write  results;  read  from  standard 
input 

DRIVER 

DRIVER, 

ICEMDL 

TSTEP 

PS 

real 

NOGAPS  atmospheric  forcing — 
surface  air  pressure;  array  with 
dimensions  (7MTP1,7MTP1) 

RFORCE 

HEAT, 

GEOWIND, 

RFORCE 

RFOR 

PS1 

real 

NOGAPS  atmospheric  forcing — 
total  heat  flux;  array  with 
dimensions  (7MTP1,JMTP1) 

RFORCE 

HEAT,  RFORCE 

RFOR 

RADIAN 

real 

deg  per  radian  defined  by  parameter 
statement  (57.29578°) 

ADVECT, 

DRIVER, 

OCEAN,  RELAX 
ICEMDL 

ADVECT, 

DRIVER, 

OCEAN,  RELAX, 
ICEMDL 

local 

variable 
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NAME 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

RADIUS 

real 

earth’s  radius  defined  by  parameter 
statement  (6370.0  *  103m) 

ADVECT, 

CLINIC, 

ICEMDL, 

RELAX 

ADVECT, 

CLINIC, 

ICEMDL,  RELAX 

SHICE 

real 

total  ice  thickness;  array  with 
dimensions  (7MT,7MT) 

HEAT, 

RST_OCN 

HEAT,  RST.OCN, 

SAV.OCN, 

TRACER 

SNRT 

real 

•  Jan,  Feb,  Mar,  or  Apr 
(3.215  x  10-9) 

•May  (19.29  xlO-9) 

•  Jun,  Jul,  or  Aug  1-19  (0.0) 

•Aug  20-31  (49.603  x  10-9) 

•  Sep  or  Oct  (49.603  x  10-9) 

•Nov  or  Dec  (3.215  xlO-9) 

ICEMDL 

BUDGET, 

ICEMDL 

TAIR 

real 

NOGAPS  atmospheric  forcing — 
surface  air  temperature;  array  with 
dimensions  (7MTP1,JMTP1) 

RFORCE 

BUDGET,  HEAT, 
RFORCE 

TFRZ 

real 

temperature  at  the  freezing  point; 
array  with  dimensions  (7MT,7MT) 

RST.OCN, 

SWAP 

HEAT,  RST.OCN, 
SSMI,  SWAP 

THETA 

real 

indicates  backward  timestep 

ICEMDL 

ICEMDL,  RELAX 

TICE 

real 

mixed-layer  temperature  for  open 
water  or  ice  temperature  for  ice 
cover  (Kelvin);  read  from  restart 
data  file  or  initialized  to  constant 
initial  condition;  array  with 
dimensions  (7MT,JMT) 

RSTJCE 

BUDGET, 

DRIVER, 

RST.ICE, 

SAV.ICE 

TMl 

real 

mixed-layer  temperature  (Kelvin) 
from  previous  timestep;  array  with 
dimensions  (/MT,7MT) 

RST_OCN, 

SSMI 

HEAT,  SSMI, 
RST.OCN, 

SWAP 

TM2 

real 

mixed-layer  temperature  from  two 
timesteps  ago  (Kelvin);  array  with 
dimensions  (7MT,JMT) 

RST_OCN, 

SSMI 

RST.OCN, 

SSMI,  SWAP 

TMP 

real 

ocean  salinity  and  temperature  (°C) 
from  previous  timestep;  array  with 
dimensions  (7MT,2) 

RST_OCN 

RST.OCN 

UICE 

real 

x  component  of  ice  drift;  array  with 
dimensions  (/MTM1,JMTM1,3) 

ICEMDL  or 
RSTJCE 

DRIVER,  FORM, 
ICEMDL, 

PLAST,  RELAX, 
RSTJCE, 

SAV.ICE, 

STRESSUP 

BLOCK 


SNOW 


RSTRT 


COX2 
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NAME 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

UICEC 

real 

intermediate  x  component  of  the  ice 
drift;  read  from  restart  data  file  or 
initialized  to  constant  initial 
condition;  array  with  dimensions 
(7MTM1,7MTM1,3) 

ICEMDL  or 
RSTJCE 

ADVECT, 

DRIVER, 

ICEMDL, 

RELAX, 

RSTJCE, 

SAVJCE 

RSTRT 

UTEMP 

real 

x  component  of  ocean  current  from 
previous  timestep;  array  with 
dimension  (/MT) 

RST_OCN 

RST_OCN 

COX2 

UVM 

real 

land/sea  mask  for  velocity  vari¬ 
ables;  array  with  dimensions 
(7MTM1,7MTM1) 

BNDRY 

BNDRY, 

ICEMDL, 

RELAX 

MASK 

VICE 

real 

y  component  of  ice  drift;  array  with 
dimensions  (7MTM1,JMTM1,3) 

ICEMDL  or 
RSTJCE 

DRIVER,  FORM, 
ICEMDL, 

PLAST,  RELAX, 
RSTJCE, 
SAVJCE, 
STRESSUP 

RSTRT 

VICEC 

real 

intermediate  y  component  of  the  ice 
drift;  read  from  restart  data  file  or 
initialized  to  constant  initial 
condition;  array  with  dimensions 
(/MTM 1  ,/MTM  1,3) 

ICEMDL  or 
RSTJCE 

ADVECT, 

DRIVER, 

ICEMDL, 

RELAX, 

RSTJCE, 

SAV  ICE 

RSTRT 

VTEMP 

real 

y  component  of  ocean  current  from 
previous  timestep;  array  with 
dimension  (7MT) 

RST_OCN 

RST_OCN 

COX2 

ZETA 

real 

nonlinear  bulk  viscosity;  array  with 
dimensions  (7MT,7MT) 

PLAST 

FORM,  ICEMDL, 
RELAX 

local 

variable 
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4.2  Ocean  Data  Table 


This  section  describes  the  global  data  elements  of  CSC  Compute  Ocean. 


DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

ABT 

real 

temporary  array  for  printing 
topography  map 

OCEAN 

OCEAN 

local 

variable 

ACOR 

real 

if  =  0,  treat  the  Coriolis 
term  explicitly 
if  >  0,  treat  the  Coriolis 
term  implicitly  with 
forward  component 
weighted  by  ACOR,  past 
component  by  1  -  ACOR 

OCEAN 

CLINIC, 

RELAX 

SCALAR 

1 

j 

1 

ACORF 

real 

=  ACOR;  read  in 
NAMELIST  PARMS 

OCEAN 

OCEAN 

local 

variable 

AH 

real 

coefficient  of  horizontal 
mixing  of  T 

OCEAN 

STEP 

SCALAR 

AHF 

real 

=  AH;  read  in  NAMELIST 
EDDY 

OCEAN 

OCEAN 

local 

variable 

AICE 

real 

ice  concentration  read  from 
restart  file  created  by  the  ice 
model 

OCEAN 

TRACER 

TSTOP 

AKNTRL 

real 

available  for  storage  of 
values  that  need  to  be 
saved  to  the  restart  file 

not  used 

not  used 

AM 

real 

coefficient  of  horizontal 
mixing  of  U,V 

OCEAN 

CLINIC 

SCALAR 

AMF 

real 

=  AM;  read  in 

NAMELIST  EDDY 

OCEAN 

OCEAN 

local 

variable 

AREA 

real 

area  of  the  surface  of  the 
model  basin 

OCEAN 

FULLWD 

ASH 

real 

set  to  0  for  a  grid  cell 
that  meets  the  criteria  for 
open  water 

TRACER 

TRACER 

local 

variable 

BBTJ 

real 

coefficient  used  in  horizontal 
mixing  of  T 

TRACER 

TRACER 

local 

variable 

BBUJ 

real 

coefficient  used  in  horizontal 
mixing  of  U,V 

CLINIC 

CLINIC 

local 

variable 

BCON 

real 

slab  incidental  data  on 

N+l  slab 

STEP 

STEP 

BIG 

real 

virtual  disk,  stores  disk  data 
in  core-contained  mode 

ODAM 

ODAM 

BG  | 

1 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

BLK 

character*  1 

a  single  blank  character 

OCEAN 

OCEAN 

local 

variable 

BOXVOL 

real 

volume  of  one  grid  box 

TRACER 

TRACER 

local 

variable 

BUOY 

real 

energy  transfer  through 
buoyancy  effects 

TRACER, 

STEP 

TRACER 

FULLWD 

C 

real 

coefficients  of  equation  of 
state 

STATE 

STATE 

local 

variable 

C2DTSF 

real 

DTSF  x  2 

STEP 

CLINIC 

SCALAR 

C2DTTS 

real 

DTTS x  2 

STEP 

TRACER 

SCALAR 

C2DTUV 

real 

DTUV  x  2 

STEP 

CLINIC 

SCALAR 

C2DZ 

real 

DZ  x  2 

OCEAN 

STEP 

ONEDIM 

C2DZQ 

real 

DZQ  x  2 

STEP 

CLINIC, 
TRACER ' 

WORKSP 

CCTJ 

real 

coefficient  used  in  horizontal 
mixing  of  T 

STEP 

TRACER 

STEP, 

TRACER 

local 

variable 

CCUJ 

real 

coefficient  used  in  horizontal 
mixing  of  U,V 

CLINIC 

CLINIC 

local 

variable 

CD 

real 

a  constant  used  in  CSU 
CLINIC  to  compute  vertical 
diffusion  of  momentum; 

=  0.0013 

CLINIC 

CLINIC 

local 

variable 

CFE 

real 

coefficient  of  eastern  point 
in  LaPlacian  star 

RELAX 

RELAX 

WORKSP 

(R) 

CFN 

real 

coefficient  of  northern  point 
in  LaPlacian  star 

RELAX 

RELAX 

WORKSP 

(R) 

CFS 

real 

coefficient  of  southern  point 
in  LaPlacian  star 

RELAX 

RELAX 

WORKSP 

(R) 

CFW 

real 

coefficient  of  western  point 
in  LaPlacian  star 

RELAX 

RELAX 

WORKSP 

(R) 

CHENG 

real 

Levitus  climatological  data 
of  ocean  temperature  and 
salinity 

OCEAN 

TRACER 

TSTOP 

CIQ 

real 

Knudsen  formula 
coefficients  with  alternating 
reference  levels 

STATE 

STATE 

WORKSP 

COF 

real 

normalization  array  in 
computation  of  island  flow 

RELAX 

RELAX 

WORKSP 

(R) 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COFIS 

real 

integral  of  COF 

RELAX 

RELAX 

CONTRL 

real 

NAMELIST  data  file  of 
program  flow  controllers 

OCEAN 

OCEAN 

CPF 

real 

normalization  factor  used  in 
constructing  LaPlacian  star 

RELAX 

RELAX 

CQ 

real 

Knudsen  formula 
coefficients 

STATE 

STATE 

CRIT 

real 

criterion  for  convergence  of 
relaxation 

OCEAN 

RELAX 

CRITF 

real 

=  CRIT;  read  in  NAMELIST 
PARMS 

OCEAN 

OCEAN 

CRTP 

real 

altered  value  of  CRIT  for 
computational  efficiency 

RELAX 

RELAX 

cs 

real 

cosine  of  U,V  point  latitudes 

OCEAN 

CLNIIC, 

TRACER 

CSR 

real 

1.0/CS 

OCEAN 

CLINIC 

CST 

real 

cosine  of  T  point  latitudes 

OCEAN 

CLINIC, 

TRACER 

CSTR 

real 

1.0/CST 

OCEAN 

CLINIC, 

TRACER 

DAYSYR 

real 

number  of  days  per  year; 
used  in  CSU  STEP  to 
print  timestep  information. 

STEP 

STEP 

DDTJ 

real 

coefficient  used  in  horizontal 
mixing  of  T 

TRACER 

TRACER 

DDUJ 

real 

coefficient  used  in  horizontal 
mixing  of  U,V 

CLINIC 

CLINIC 

DETMR 

real 

reciprocal  of  determinant 
of  the  matrix  arising  from 
simultaneous  equations  of 
the  semi-implicit  treatment 
of  the  Coriolis  term 

CLINIC 

CLINIC 

DIAG1 

real 

temporary  storage  of 
diagonal  differences  for 
computational  efficiency 

STEP 

STEP 

DIAG2 

character*! 

temporary  storage  of 
diagonal  differences  for 
computational  efficiency 

STEP 

STEP 

COMMON 

BLOCK 


WORKSP 

(R) 


local 

variable 


WORKSP 

(R) 


WORKSP 


SCALAR 


local 

variable  ' 


I 

local 

variable 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 
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DATA 

ELEMENTS 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

DOT 

real 

_  if 

OCEAN 

OCEAN 

local 

variable 

DPDX 

real 

zonal  derivative  of 
hydrostatic  pressure;  used  in 
computing  zonal  component 
of  internal  mode  velocity 

CLINIC 

CLINIC 

local 

variable 

DPDY 

real 

meridional  derivative  of 
hydrostatic  pressure;  used  in 
computing  meridional 
component  of  internal 
mode  velocity 

CLINIC 

CLINIC 

local 

variable 

DTABS 

real 

volume  average  of  absolute 
change  of  temperature 

TRACER, 

STEP 

STEP 

FULLWD 

DTSF 

real 

length  of  timestep  on  stream 
function 

OCEAN 

STEP 

SCALAR 

DTSFF 

real 

=  DTSF;  read  in 
NAMELIST  TSTEP 

OCEAN 

OCEAN 

local 

variable 

DTTS 

real 

length  of  timestep  on  T 

OCEAN 

STEP 

SCALAR 

DTTSF 

real 

=  DTTS;  read  in 
NAMELIST  TSTEP 

OCEAN 

OCEAN 

local 

variable 

DTUV 

real 

length  of  timestep  on  U,V 

OCEAN 

STEP 

SCALAR 

DTUVF 

real 

=  DTUV;  read  in 
NAMELIST  TSTEP 

OCEAN 

OCEAN 

local 

variable 

DXT 

real 

zonal  grid  spacing  across  T 
boxes  (between  U,V  points) 

OCEAN 

STEP, 

TRACER 

ONEDIM 

DXT2R 

real 

1.0/(DXT  *  2.0) 

OCEAN 

CLINIC 

ONEDIM 

DXT4R 

real 

1.0/(DXT  *  4.0) 

OCEAN 

TRACER 

ONEDIM 

DXT4RQ 

real 

similar  to  DXT4R  but  for 
vectorization 

STEP 

CLINIC, 

TRACER 

WORKSP 

DXTQ 

real 

similar  to  DXT  but  for 
vectorization 

STEP 

TRACER 

WORKSP 

DXTR 

real 

1.0/DXT 

OCEAN 

RELAX,  CLINIC 

ONEDIM 

DXU 

real 

zonal  grid  spacing  across 
U,V  boxes  (between  T 
points) 

OCEAN 

CLINIC 

ONEDIM 

DXU2R 

real 

1.0/(DXU  *  2) 

OCEAN 

CLINIC, 

TRACER 

ONEDIM 

DXU2RQ 

real 

similar  to  DXU2R  but  for 
vectorization 

STEP 

CLINIC 

WORKSP 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

DXU4R 

real 

1.0/(DXU  *  4) 

OCEAN 

not  used 

DXUQ 

real 

similar  to  DXU  but  for 
vectorization 

STEP 

TRACER 

DXUR 

real 

1.0/DXU 

OCEAN 

CLINIC 

DYT 

real 

meridional  grid  spacing 
across  T  boxes  (between 
U,V  points) 

OCEAN 

TRACER 

DYT2R 

real 

1.0/(DYT  *  2.0) 

OCEAN 

CLINIC 

DYT4R 

real 

1.0/(DYT  *  4.0) 

OCEAN 

not  used 

DYTR 

real 

1.0/DYT 

OCEAN 

CLINIC, 

TRACER, 

RELAX 

DYU 

real 

meridional  grid  spacing 
across  U,V  boxes 
(between  T  points) 

OCEAN 

CLINIC, 

TRACER 

DYU2R 

real 

1 ,0/(D YU  *  2.0) 

OCEAN 

CLINIC 

DYU4R 

real 

1.0/(DYU  *4.0) 

OCEAN 

CLINIC 

DYUR 

real 

1.0/D  YU 

OCEAN 

CLINIC 

DZ 

real 

vertical  grid  spacing  down 
U,V,T  boxes  (between  W 
points);  vertical  layer 
thickness  in  centimeters 

OCEAN 

CLINIC, 

TRACER 

DZ2R 

real 

1 .0/(DZU  *  2.0) 

OCEAN 

STEP, 

TRACER 

DZ2RQ 

real 

similar  to  DZ2R  but  for 
vectorization 

STEP 

TRACER 

DZZ 

real 

vertical  grid  spacing 
across  W  boxes  (between 
U,V,T  points) 

OCEAN 

OCEAN, 

CLINIC 

DZZ2R 

real 

1.0/(DZZ  *  2.0) 

OCEAN 

TRACER 

DZZ2RQ 

real 

similar  to  DZZ2R  but  for 
vectorization 

STEP 

not  used 

DZZQ 

logical 

similar  to  DZZ  but  for 
vectorization 

STEP 

CLINIC 

EB 

namelist 

if  true,  Euler  backward 
step  for  time  mixing;  if 
false,  forward  timestep  for 
time  mixing 

OCEAN 

RELAX,  STEP 

COMMON 

BLOCK 


ONEDIM 


WORKSP 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


ONEDIM 


WORKSP 


WORKSP 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

EDDY 

real 

NAMELIST  data  file  of 
eddy  mixing  coefficients 

OCEAN 

OCEAN 

local 

variable 

EEH 

real 

upper  vertical  mixing 
coefficient  of  T 

OCEAN 

TRACER 

ONEDIM 

EEHQ 

real 

similar  to  EEH  but  for 
vectorization 

STEP 

TRACER 

WORKSP 

EEM 

real 

upper  vertical  mixing 
coefficient  of  U,V 

OCEAN 

CLINIC 

ONEDIM 

EEMQ 

real 

similar  to  EEM  but  for 
vectorization 

STEP 

CLINIC 

WORKSP 

EKTOT 

real 

total  kinetic  energy 
normalized  by  volume 

STEP, 

CLINIC 

STEP,  CLINIC 

FULLWD 

ENGEXT 

real 

accumulators  of  rates  of 
change  of  kinetic  energy 
of  external  mode 

STEP, 

CLINIC 

STEP,  CLINIC 

FULLWD 

ENGINT 

real 

accumulators  of  rates  of 
change  of  kinetic  energy 
of  internal  mode 

STEP, 

CLINIC 

STEP, 

CLINIC 

FULLWD 

ENGTMP 

real 

temporary  accumulator  of 
change  of  kinetic  energy 
of  external  mode 

CLINIC 

CLINIC 

local 

variable 

FFH 

real 

lower  vertical  mixing 
coefficient  of  T 

OCEAN 

TRACER 

ONEDIM 

FFHQ 

real 

similar  to  FFH  but  for 
vectorization 

STEP 

TRACER 

WORKSP 

FFM 

real 

lower  vertical  mixing 
coefficient  of  U,V 

OCEAN 

CLINIC 

ONEDIM 

FFMQ 

real 

similar  to  FFM  but  for 
vectorization 

STEP 

CLINIC 

WORKSP 

FINS 

real 

floating  point  array  to  read 
in  start  and  end  indices 

OCEAN 

OCEAN 

local 

variable 

FKMP 

real 

number  of  vertical  levels  of 
ocean  at  T  points 

OCEAN 

OCEAN 

local 

variable 

FKMQ 

real 

number  of  vertical  levels  of 
ocean  at  U,V  points 

OCEAN 

OCEAN 

local 

variable 

FKMT 

real 

number  of  vertical  levels  of 
ocean  at  T  points 

OCEAN 

STEP 

WORKSP 

FKMTM 

real 

FKMT  at  row  J-  1 

not  used 

not  used 

WORKSP 

FKMTP 

real 

FKMT  at  row  J+  1 

STEP 

STEP 

WORKSP 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

csu 

USED  IN 

FKMU 

real 

number  of  vertical  levels  of 
ocean  at  U,V  points 

OCEAN 

STEP 

FKMUM 

real 

FKMU  at  row  7-1 

not  used 

not  used 

FKMUP 

real 

FKMU  at  row  7+1 

STEP 

STEP 

FKMZ 

real 

number  of  vertical  levels  of 
ocean  at  interior  (non-land 
neighboring)  T  points 

OCEAN 

OCEAN 

FKPH 

real 

coefficient  of  vertical  mixing 
of  T 

OCEAN 

OCEAN 

FKPHF 

real 

=  FKPH;  read  in 
NAMELIST  EDDY 

OCEAN 

OCEAN 

FKPM 

real 

coefficient  of  vertical  mixing 
of  U,V 

OCEAN 

OCEAN 

FKPMF 

real 

=  FKPM;  read  in 
NAMELIST  EDDY 

OCEAN 

OCEAN 

FM 

real 

masking  array  for  T  points; 

0  over  land  and  1  over  ocean 

STEP 

STEP, 

TRACER 

FMM 

real 

FM  at  row  7-1 

STEP 

STEP 

FMP 

real 

FM  at  row  7+1 

STEP 

STEP, 

TRACER 

FUW 

real 

zonal  component  of 
advective  coefficient  for 
west  face  of  U,V  box  in 
CLINIC  and  of  T  box 
in  TRACER 

CLINIC, 

TRACER 

CLINIC, 

TRACER 

FVN 

real 

meridional  component  of 
advective  coefficient  for 
north  face  of  U,V  box  in 
CLINIC  and  of  T  box 
in  TRACER 

CLINIC, 

TRACER 

CLINIC, 

TRACER 

FVST 

real 

advective  coefficient  for 
south  face  of  T  box 

TRACER 

TRACER  1 

FVSU 

real 

advective  coefficient  for 
south  face  of  U,V  box 

STEP 

CLINIC  i 

FX 

real 

temporary  value,  constant  in 
subsequent  DO  loops 

CLINIC, 

TRACER, 

STEP, 

RELAX 

CLINIC,  1 

TRACER,  i 

STEP, 

RELAX 

FXA 

real 

temporary  value,  constant  in 
subsequent  DO  loops 

CLINIC, 

TRACER, 

RELAX 

CLINIC,  1 

TRACER,  \ 

RELAX 

COMMON 

BLOCK 


WORKSP 


WORKSP 


WORKSP 


local 

variable 


SCALAR 


local 

variable 


SCALAR 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

FXB 

real 

temporary  value,  constant  in 
subsequent  DO  loops 

CLINIC, 

TRACER 

CLINIC, 

TRACER 

local 

variable 

FXC 

real 

temporary  value,  constant  in 
subsequent  DO  loops 

RELAX 

RELAX 

local 

variable 

FW 

real 

not  used;  deep  oceanic 
heat  fluxes  read  in  from 
the  ice  model 

not  used 

not  used 

TSTOP 

GGUJ 

real 

coefficient  used  in  horizontal 
mixing  of  U,V 

CLINIC 

CLINIC 

local 

variable 

GICE 

real 

ice  growth  rates  computed 
by  the  ice  model 

OCEAN 

TRACER 

TSTOP 

GM 

real 

masking  array  for  U,V 
points;  0  for  land  and  1 
for  ocean;  used  in 
equations  to  force  0 
values  for  land  grid  cells 

STEP 

CLINIC 

WORKSP 

GRAV 

real 

acceleration  due  to 
gravity  =  980.6  cm/s2 

OCEAN 

CLINIC, 

TRACER 

SCALAR 

GRID 

real 

0.5715;  defined  in 
PARAMETER  statement 

all 

OCEAN 

local 

variable 

GRID2 

real 

0.28575;  defined  in 
PARAMETER  statement 

all 

OCEAN 

local 

variable 

GRID3 

real 

0.28575;  defined  in 
PARAMETER  statement 

all 

OCEAN 

local 

variable 

HHUJ 

real 

coefficient  used  in  horizontal 
mixing  of  U,V 

CLINIC 

CLINIC  ; 

local 

variable 

HICE 

real 

ice  thickness  computed 
from  the  ice  model 

OCEAN 

TRACER 

TSTOP 

HR 

integer 

reciprocal  of  total  depth  at 
U,V  points 

OCEAN 

CLINIC, 

STEP 

FIELDS 

I 

integer 

zonal  gridpoint  index 

all 

all 

local 

variable 

IBK 

integer 

DO  loop  index 

OCEAN 

OCEAN 

local 

variable 

IBOX 

NAMELIST  data  file  of 
island  box  corner  point 
indices 

OCEAN 

OCEAN 

local 

variable 

IE 

integer 

ending  index  for  I  DO  loop 

CLINIC, 

RELAX, 

MATRIX 

CLINIC, 

RELAX, 

MATRIX 

local 

variable 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

IEIS 

integer 

ending  index  for  island  box 

IEPT 

integer 

index  designator 

IEPU 

integer 

index  designator 

IEZ 

integer 

array  of  ending  indices  for 
vorticity 

IFKMP 

integer 

number  of  vertical  levels  of 
ocean  at  T  points  read  from 
bathymetry  file  if  starting  a 
run  from  scratch 

ILA 

integer 

DO  loop  index 

ILO 

integer 

DO  loop  index 

IMT 

integer 

total  number  of  T  grid  boxes 
zonally;  =  360;  defined  in 
PARAMETER  statement 

IMTKM 

integer 

IMT  *  KM;  =  1500;  defined 
in  PARAMETER  statement 

IMTM1 

integer 

/MT-1;  =  359;  defined  in 
PARAMETER  statement 

IMTM2 

integer 

/MT-2;  =  358;  defined  in 
PARAMETER  statement 

IMTP1 

integer 

/MT+1;  =  361;  defined  in 
PARAMETER  statement 

IMU 

integer 

total  number  of  U,V  grid 
boxes  zonally;  =  359; 
defined  in  PARAMETER 
statement 

IMUM1 

integer 

/MU  -  1;  =  358;  defined  in 
PARAMETER  statement 

IMUM2 

integer 

/MU -2;  =  357;  defined  in 
PARAMETER  statement 

IND 

integer 

indicates  which  levels  to 
compare  for  static  stability 

INT2 

integer 

1;  defined  in  PARAMETER 
statement 

INT3 

integer 

1 ;  defined  in  PARAMETER 
statement 

CSU  CSU 

DEFINED  IN  USED  IN 


OCEAN 


OCEAN 


OCEAN 


OCEAN 


STATE 


RELAX 


OCEAN 


OCEAN 


RELAX 


OCEAN 


OCEAN 


OCEAN 


CLINIC, 

OCEAN, 

STEP 


not  used 


STATE 


COMMON 

BLOCK 


FULLWD 


local 

variable 


local 

variable 


FULLWD 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

INTVL2 

integer 

2;  defined  in  PARAMETER 
statement 

all 

all 

local 

variable 

INTVL3 

integer 

2;  defined  in  PARAMETER 
statement 

all 

all 

local 

variable 

IPRT 

integer 

number  of  columns  to 
print  beginning  at  western 
boundary 

STEP 

STEP 

local 

variable 

IS 

integer 

starting  index  for  /  DO  loop 

RELAX 

RELAX 

local 

variable 

ISIS 

integer 

starting  I  index  of  island  box 

OCEAN 

OCEAN 

FULLWD 

ISLE 

integer 

DO  loop  index  indicating 
island  being  computed 

RELAX 

RELAX 

local 

variable 

ISMASK 

integer 

gridpoint  type  indicator: 

=  0  over  interior  points 
=  1  over  perimeter  points 
=  2  over  land  points 

RELAX 

RELAX 

WORKSP  (R) 

ISP 

integer 

index  designator 

OCEAN 

OCEAN 

local 

variable 

ISTEP 

integer 

number  of  timesteps  in  a  day 

STEP 

STEP 

local 

variable 

ISTOP 

integer 

final  column  to  be  printed 

STEP 

STEP 

local 

variable 

ISTRT 

integer 

first  column  to  be  printed 

STEP 

STEP, 

MATRIX 

local 

variable 

ISZ 

integer 

array  of  starting  indices  for 
vorticity 

OCEAN 

RELAX 

FULLWD 

ITT 

integer 

timestep  counter;  total 
number  of  timesteps 
completed 

OCEAN 

STEP, 

CLINIC, 

TRACER, 

STRESSUP, 

RELAX, 

OCEAN 

FULLWD 

J 

integer 

meridional  gridpoint  index 

all 

all 

local 

variable 

JE 

integer 

ending  index  for  J  DO  loop 

RELAX 

RELAX 

local 

variable 

JEIS 

integer 

ending  J  index  of  island  box 

OCEAN 

RELAX 

FULLWD 

JJ 

integer 

index  designator 

STEP 

STEP 

local 

variable 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

JMT 

integer 

total  number  of  T  grid  boxes 
meridionally;  =  360;  defined 
in  PARAMETER  statement 

all 

all 

JMTM1 

integer 

JMT  -  1;  =  359;  defined  in 
PARAMETER  statement 

all 

OCEAN, 

RELAX, 

STEP, 

STRESSUP 

JMTM2 

integer 

JMT -2;  =  358;  defined  in 
PARAMETER  statement 

all 

STEP 

JMTP1 

integer 

JMT  +  1;  =  361;  defined  in 
PARAMETER  statement 

all 

all 

JREV 

integer 

DO  loop  index  in  reverse 
order 

OCEAN 

OCEAN 

JS 

integer 

starting  index  for  J  DO  loop 

RELAX 

RELAX 

JSCAN 

integer 

=  JMTM2;  defined  in 
PARAMETER  statement 

all 

OCEAN, 

RELAX 

JSIS 

integer 

starting  J  index  of  island  box 

OCEAN 

RELAX 

K 

integer 

vertical  gridpoint  index 

all 

all 

KAR 

integer 

KAR(K)  =  K;  used  to  enable 
vectorization 

OCEAN 

STEP, 

CLINIC 

KFLDS 

integer 

disk  unit  number  (12)  for 
two-dimensional  horizontal 
fields  and  start  and  end 
indices 

OCEAN 

OCEAN, 

RELAX, 

STEP 

KM 

integer 

total  number  of  vertical 
levels;  =15;  defined  in 
PARAMETER  statement 

all 

all 

KMMl 

integer 

AM  -  1;  =  14;  defined  in 
PARAMETER  statement 

all 

CLINIC, 

TRACER 

KMP1 

integer 

AM  +  1;  =  16;  defined  in 
PARAMETER  statement 

all 

all 

KMP2 

integer 

AM +  2;  =  17;  defined  in 
PARAMETER  statement 

all 

OCEAN, STEP, 
TRACER, 
CLINIC,  STATE 

KMT 

integer 

number  of  vertical  levels  of 
ocean  at  T  points 

STEP 

STEP, 

TRACER 

KMTP 

integer 

AMT  +  1 

STEP 

STEP 

KMU 

integer 

number  of  vertical  levels  of 
ocean  at  U,V  points 

STEP 

STEP, 

CLINIC 

COMMON 

BLOCK 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


FULLWD 


local 

variable 


FULLWD 


FULLWD 


local 

variable 


local 

variable 


FULLWD 


FULLWD 


FULLWD 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

KMUP 

integer 

fflU  +  1 

STEP 

CLINIC 

FULLWD 

KONTRL 

integer 

disk  unit  number  for 
timestep  counter,  etc. 

OCEAN 

OCEAN, 

STEP 

FULLWD 

KPR 

integer 

temporary  array  for  printing 
topography  map 

OCEAN 

OCEAN 

local 

variable 

KREF 

integer 

reference  level  indicator 

STATE 

STATE 

local 

variable 

KS 

integer 

indicates  which  levels  to 
compare  for  static  stability 

TRACER 

TRACER 

local 

variable 

KZ 

integer 

temporary  indicator  of 
number  of  levels  of  ocean 
points 

OCEAN, 

CLINIC, 

TRACER 

OCEAN, 

CLINIC, 

TRACER 

local 

variable 

L 

integer 

index  designator 

OCEAN, 

MATRIX 

OCEAN, 

MATRIX 

local 

variable 

LABS 

integer 

disk  unit  numbers  (13-15) 
for  slabs 

OCEAN 

OCEAN, 

STEP 

FULLWD 

LBC 

integer 

number  of  arrays  of  slab 
incidental  data;  =  2;  defined 
in  PARAMETER  statement 

all 

all 

local 

variable 

LL 

integer 

index  designator 

STEP 

STEP, 

CLINIC 

local 

variable 

LO 

integer 

restart  tape  unit  number 

ODAM 

ODAM 

local 

variable 

LSEG 

integer 

maximum  number  of  sets  of 
start  and  end  indices;  =10 
for  vorticity;  defined  in 
PARAMETER  statement 

all 

all 

local 

variable 

LSEGP 

integer 

LSEG  +  1 

OCEAN 

OCEAN 

local 

variable 

LU 

integer 

disk  unit  number 

ODAM 

ODAM 

local 

variable 

LUPTD 

integer 

permuting  disk  unit  number 
for  saving  previous 
relaxation  solution 

RELAX 

RELAX 

1 

i 

local 

variable 

LUPTDB 

integer 

permuting  disk  unit  number 
for  saving  relaxation 
solution  of  two  timesteps 
previous;  if  LUPTD  =  5 
then  LUPTDB  =  6;  when 
next  solution  is  obtained, 
LUPTDB  is  set  to  5,  LUPTD 
to  6  and  the  new  solution  is 
written  to  LUPTD 

RELAX 

RELAX 

local 

variable 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

M 

integer 

index  indicating  the  tracer 
being  computed 

TRACER 

TRACER 

MIDX 

integer 

100;  defined  in 
PARAMETER  statement 

all 

all 

MIDXX 

integer 

200;  defined  in 
PARAMETER  statement 

all 

none 

MIDY 

integer 

80;  defined  in 
PARAMETER  statement 

all 

all 

MIDYY 

integer 

160;  defined  in 
PARAMETER  statement 

all 

none 

MIX 

integer 

mixing  timestep  indicator;  if 
0,  not  a  mixing  timestep; 
if=  1,  mixing  timestep 

STEP 

RELAX, 

STEP 

MSB 

integer 

not  used  at  present 

not  used 

not  used 

MSCAN 

integer 

relaxation  scan  counter 

RELAX 

RELAX 

MTEST 

integer 

print  flag 

STEP 

STEP 

MXP 

integer 

if  =  1,  second  pass  of  Euler 
backward  timestep 

STEP 

STEP, 

CLINIC, 

TRACER, 

RELAX 

MXSCAN 

integer 

maximum  number  of 
relaxation  scans  permitted 

OCEAN 

RELAX 

N 

integer 

index  designator 

OCEAN, 

STEP, 

STATE, 

ODAM 

OCEAN, 

STEP, 

STATE, 

ODAM 

NA 

integer 

if  =  1,  write  a  restart  file 

OCEAN 

OCEAN 

NB 

integer 

read  in  by  NAMELIST 
CONTRL 

OCEAN 

not  used 

NBLK 

integer 

number  of  words  per 
block  on  disk  unit; 
argument  in  CSU  ODAM 

not  used 

not  used 

NBUF 

integer 

number  of  buffers  set 
aside  for  disk  I/O  use; 
only  used  when  not 
running  in  core-contained 
mode 

OCEAN 

not  used 

NC 

integer 

read  in  by  NAMELIST 
CONTRL 

OCEAN 

not  used 

COMMON 

BLOCK 


local 

variable 


local 

variable 


local 

variable 


local 

variable 


local  i 

variable  \ 


FULLWD 


FULLWD 


FULLWD 


local 

variable 


FULLWD 


FULLWD 


local 

variable 


FULLWD 


FULLWD 


local 

variable 


local 

variable 


FULLWD 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

csu 

used  nsr 

COMMON 

BLOCK 

NCON 

integer 

number  of  passes  to  make 
on  convection;  since  mixing 
is  done  only  two  levels  at  a 
time,  total  homogenization 
of  unstable  levels  does  not 
occur  in  one  pass 

TRACER 

TRACER 

local 

variable 

NDICES 

integer 

total  number  of  start  and  end 
indices;  =  7216;  defined  in 
PARAMETER  statement 

all 

all 

local 

variable 

NDISK 

integer 

permutes  with  NDISKB 
and  NDISKA  on  13,  14, 

15  indicating  the  disk 
units  for  the  slabs  at 
various  time  levels 

OCEAN, 

STEP 

OCEAN, 

STEP 

FULLWD 

NDISKA 

integer 

see  NDISK 

OCEAN, 

STEP 

OCEAN, 

STEP 

FULLWD 

NDISKB 

integer 

see  NDISK 

STEP 

STEP 

FULLWD 

NDISKX 

integer 

temporary  disk  unit  to 
which  data  is  written  on 
second  pass  of  Euler 
backward  timestep 

STEP 

STEP 

local 

variable 

NDW 

integer 

unused  integer  read  in  by 
NAMELIST  CONTRL;  may 
be  used  to  indicate  writeout 
of  data  for  analysis  purposes 

OCEAN 

not  used 

FULLWD 

NE 

integer 

ending  DO  loop  limit 

ODAM 

ODAM 

local 

variable 

NERGY 

integer 

if  =  1 ,  indicates  energy 
printout  timestep;  if  =  0,  not 
an  energy  printout  timestep 

STEP 

STEP, 

CLINIC, 

TRACER 

FULLWD 

NFIRST 

integer 

if  =  1,  start  a  run  from 
scratch 

if  =  0,  restart  from  data 
supplied  on  units  11-15; 
read  in  by  NAMELIST 
CONTRL 

OCEAN 

OCEAN 

FULLWD 

NFRST 

integer 

disk  unit  address  of  the  first 
word  to  be  transferred 

ODAM 

ODAM 

local 

variable 

NGRDP 

integer 

=  181;  defined  in 
PARAMETER  statement 

all 

all 

local 

variable 

NGRDPX 

integer 

=  361;  defined  in 
PARAMETER  statement 

all 

all 

local 

variable 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

NGRDPY 

integer 

=  361;  defined  in 
PARAMETER  statement 

all 

all 

NIEVEN 

integer 

4;  defined  in  PARAMETER 
statement 

all 

none 

NISLE 

integer 

number  of  islands  in  the 
model  basin;  =  4;  defined  in 
PARAMETER  statement 

all 

all 

NKFLDS 

integer 

number  of  two-dimensional 
fields  needed  on  disk  unit 
12;  this  is  six  plus  the 
number  of  (equivalent)  two- 
dimensional  fields  needed  to 
contain  the  start  and  end 
indices,  normally  one;  =  7; 
defined  in  PARAMETER 

statement 

all 

OCEAN, 

ODAM, 

STRESSUP 

NLAST 

integer 

final  timestep  to  compute  on 
this  run  of  the  model;  read 
in  by  NAMELIST  CONTRL 

OCEAN 

OCEAN, 

STEP 

NMIX 

integer 

number  of  timesteps 
between  mixing  timesteps; 
mixing  is  done  to 
suppress  the  computational 
mode  associated  with 
leap-frog  timestepping 

OCEAN 

STEP 

NNERGY 

integer 

number  of  timesteps 
between  execution  of 
energy/printout  code;  read 
in  by  NAMELIST 

CONTRL 

OCEAN 

STEP 

NRTLF1 

integer 

178;  defined  in 
PARAMETER  statement 

all 

all 

NS 

integer 

starting  DO  loop  limit 

ODAM, 

STATE 

ODAM, 

STATE 

NSKP 

integer 

index  designator 

ODAM 

ODAM 

NSLAB 

integer 

number  of  words  in  one 
slab;  =  22320;  defined  in 
PARAMETER  statement 

all 

OCEAN, 

STATE, 

STRESSUP 

NSTLF1 

integer 

0;  defined  in  PARAMETER 
statement 

all 

all 

NSTLWl 

integer 

0;  defined  in  PARAMETER 
statement 

all 

all 

COMMON 

BLOCK 


local 

variable 


local 

variable 


local 

variable 


FULLWD 


FULLWD 


FULLWD 


local 

variable 


local 

variable 


local 

variable 


local 

variable 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

NSTRT1 

integer 

180;  defined  in 
PARAMETER  statement 

all 

all 

local 

variable 

NSTUP1 

integer 

180;  defined  in 
PARAMETER  statement 

all 

all 

local 

variable 

NSWICH 

integer 

number  of  words  in  slab 
incidental  data  that  are 
nonprognostic  and  must  be 
switched;  =  720;  defined 
in  PARAMETER  statement 

all 

STEP 

local 

variable 

NT 

integer 

number  of  tracer  type 
variables  carried  in  the 
model;  temperature  and 
salinity  (2)  +  number  of 
passive  tracers  (0);  =  2; 
defined  in  PARAMETER 

statement 

all 

all 

local 

variable 

NTMIN2 

integer 

maximum  of  NT  or  2;  =  2; 
defined  in  PARAMETER 
statement 

all 

all 

local 

variable 

NTOT 

integer 

total  length  of  a  disk  unit; 
argument  in  CSU  ODAM 

not  used 

not  used 

local 

variable 

NTSI 

integer 

number  of  timesteps 
between  print  of  a  single 
line  of  information 
containing  timestep 
number,  kinetic 
energy,  etc. 

OCEAN 

STEP, 

CLINIC, 

TRACER 

FULLWD 

NUPLW1 

integer 

178;  defined  in 
PARAMETER  statement 

all 

all 

local 

variable 

NWDS 

integer 

/MT*JMT;  in  ODAM: 
number  of  words  to 
transfer  in  a  disk 
operation  =  129600;  defined 
in  PARAMETER  statement 

all 

all 

local 

variable 

NWRITE 

integer 

used  in  core-contained 
mode  as  number  of 
timesteps  between  backup 
restart  write 

OCEAN 

OCEAN 

FULLWD 

NWRS 

real 

number  of  words  to  transfer 
in  a  disk  operation 

ODAM 

ODAM 

local 

variable 

OMEGA 

real 

rate  of  rotation  of  the 
coordinate  system 

OCEAN 

CLINIC 

SCALAR 

P 

real 

mass  transport  stream 
function 

RELAX 

CLINIC, 

STEP 

FIELDS 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

PAD 

namelist 

unused  memory  space  to 
prevent  overwriting  on  I/O 

not  used 

not  used 

PARMS 

real 

NAMELIST  data  file  of 
various  parameters  in  the 
model 

OCEAN 

OCEAN 

PB 

real 

P  in  previous  timestep 

STEP, 

OCEAN 

CLINIC, 

RELAX, 

STEP 

PHI 

real 

latitude  in  radians  of  the  U,V 
points 

OCEAN 

OCEAN 

PHIT 

real 

latitude  in  radians  of  the  T 
points 

OCEAN 

OCEAN 

PI 

real 

pi;  =  3.1415927 

OCEAN 

not  used 

PLICEX 

real 

energy  change  due  to 
implicit  effects  on 
external  mode 

STEP 

STEP 

PLICIN 

real 

energy  change  due  to 
implicit  effects  on  internal 
mode 

STEP 

STEP 

PTD 

real 

change  of  stream  function 
across  a  timestep 

RELAX 

RELAX 

PTDB 

real 

change  of  stream  function 
across  previous  timestep 

RELAX 

RELAX 

RADIAN 

real 

radian  to  degree  conversion 
factor;  =  57.29578 

OCEAN 

OCEAN 

RADIUS 

real 

radius  of  the  Earth  in 
centimeters;  6730.E5 

OCEAN 

CLINIC 

RES 

real 

residual  of  relaxation 

RELAX 

RELAX 

RESIS 

real 

residual  of  relaxation  of 
island 

RELAX 

RELAX 

RESMAX 

real 

maximum  of  the  residuals  at 
all  gridpoints 

RELAX 

RELAX 

RHO 

real 

density  with  a  space  and 
time  invariant  constant 
subtracted 

STATE 

STATE 

RHON 

real 

RHO  for  the  row  to  the  north 

CLINIC 

TRACER 

RHOS 

real 

RHO  for  the  row  to  the  south 

STEP 

CLINIC, 

TRACER 

COMMOh 

BLOCK 


FULLWD 


FULLWD 


ONEDIM 


ONEDIM 


local 

variable 


FULLWD 


FULLWD 


local 

variable 


local 

variable 


SCALAR 


WORKSP 

(R) 


local 

variable 


local 

variable 


local 

variable 


WORKSP 


WORKSP 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

RICEO 

real 

ratio  of  the  latent  heat  of 
fusion  of  sea  ice  to  the  heat 
capacity  of  water 

TRACER 

TRACER 

local 

variable 

SCL 

real 

scaling  factor  for  printout 

STEP 

STEP 

local 

variable 

SFU 

real 

external  mode  component  of 
U;  also  used  for  temporary 
storage 

STEP, 

CLINIC 

STEP, 

CLINIC 

ONEDIM 

SFUB 

real 

SFU  in  previous  timestep 

STEP, 

CLINIC 

STEP, 

CLINIC 

ONEDIM 

SFV 

real 

external  mode  component  of 
V;  also  used  for  temporary 
storage 

STEP, 

CLINIC 

STEP, 

CLINIC 

ONEDIM 

SFVB 

real 

SFV  in  previous  timestep 

STEP, 

CLINIC 

STEP, 

CLINIC 

ONEDIM 

SHICE 

real 

growth  rate  of  ice  thickness 

OCEAN 

TRACER 

TSTOP 

SINE 

real 

sine  of  U,V  point  latitude 

OCEAN 

CLINIC 

ONEDIM 

SINEA 

real 

sine  of  U,V  point  latitude 
in  the  Earth-oriented 
coordinates  used  to 
compute  the  Coriolis  force 

OCEAN 

STEP, 

CLINIC 

ONEDIM 

SMIX 

real 

interpolated  monthly 
salinity  data  from  the 
Levitus  climatology 

OCEAN 

TRACER, 

OCEAN 

TSTOP 

SO 

real 

normalizing  salinities  for 
Knudsen  coefficients 

STATE 

STATE 

local 

variable 

SOIQ 

real 

normalizing  salinities  with 
alternating  reference  level 

STATE 

STATE 

WORKSP 

SOQ 

real 

same  as  SO  but  for 
vectorization 

STATE 

STATE 

WORKSP 

SOR 

real 

coefficient  of  over¬ 
relaxation;  normally 
between  1.5- 1.8 

OCEAN 

RELAX 

SCALAR 

SORF 

real 

=  SOR;  read  in  NAMELIST 
PARMS 

OCEAN 

OCEAN 

local 

variable 

SQ 

real 

normalized  salinities 

STATE 

STATE 

local 

variable 

STLF1 

real 

0;  defined  in  PARAMETER 
statement 

all 

all 

local 

variable 

STLW1 

real 

0;  defined  in  PARAMETER 
statement 

all 

all 

local 

variable 
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SWLDEG 


SX 


TBSLAB 


TCHENG 


TEMPA 


TEMPB 


DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

real 

180;  defined  in 
PARAMETER  statement 

all 

all 

real 

180;  defined  in 
PARAMETER  statement 

all 

all 

real 

summation  of  DYT 

OCEAN 

OCEAN 

real 

=  -45.72;  latitude  in  degrees 
of  the  southern  wall 

OCEAN 

OCEAN 

real 

salinities;  dummy  argument 
in  CSU  STATE 

STATE 

STATE 

real 

tracer  type  of  variables 
(temperature,  salinity) 

OCEAN, 

TRACER 

STEP, 

TRACER 

real 

similar  to  T  but  after  present 

TRACER 

TRACER 

real 

similar  to  T  but  before 
present 

OCEAN 

STEP, 

TRACER 

real 

similar  to  TB  but  in  row 

J-  1 

STEP 

STEP, 

TRACER 

real 

similar  to  TB  but  in  row 
/+  1 

STEP 

STEP, 

TRACER 

real 

zonal  summation  of  tracer 
defined  to  the  north 

STEP 

STEP 

real 

zonal  summation  of  tracer 
defined  to  the  south 

STEP 

STEP 

real 

zonal/vertical  average  of 
tracer 

STEP 

STEP 

real 

array  of  entire  N- 1  slab; 
equivalenced  to  TB 

STEP 

STEP 

real 

interpolated  monthly 

Levitus  data  of 
temperature  and  salinity 

TRACER 

TRACER 

real 

diffusion  computation  array 

TRACER 

CLINIC, 

TRACER, 

STEP 

real 

utility  array  used  as 
temporary  storage 

CLINIC, 

TRACER 

CLINIC, 

TRACER 

real 

utility  array  used  as 
temporary  storage 

CLINIC, 

TRACER 

CLINIC, 

TRACER 

real 

product  of  the  reciprocals  of 
four  surrounding  depths 

RELAX 

RELAX  1 

COMMOI 

BLOCK 


local 

variable 


local 

variable 


local 

variable 


SCALAR 


local 

variable  [ 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


local 

variable 


local 

variable 


local 

variable 


TSTOP 


WORKSP 


WORKSP 


WORKSP 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN  _ 

COMMON 

BLOCK 

TEST2 

real 

sum  of  the  reciprocals  of 
four  surrounding  depths 

RELAX 

RELAX 

local 

variable 

TICE 

real 

ice  surface  temperature 
computed  by  the  ice  model 

OCEAN 

not  used 

TSTOP 

TINIT 

real 

initial  values  of  tracers  for 
starting  from  scratch 

OCEAN 

OCEAN 

ONEDIM 

TINITF 

real 

=  TINIT;  read  from 
NAMELIST  TSPROF 

OCEAN 

OCEAN 

local 

variable 

TM 

real 

similar  to  T  but  in  row 

J-  1 

STEP 

TRACER 

WORKSP 

TMIX 

real 

interpolated  monthly 
temperature  data  from  the 
Levitus  climatology 

OCEAN 

OCEAN 

TSTOP 

TMPCHG 

real 

temporary  storage 

TRACER 

TRACER 

TSTOP 

TMT 

real 

meridional  mass  transport 

STEP 

STEP 

local 

variable 

TNG 

real 

tangent  of  U, V  point  latitude 

OCEAN 

CLINIC 

ONEDIM 

TO 

real 

normalizing  temperature  for 
Knudsen  coefficients 

STATE 

STATE 

local 

variable 

TOIQ 

real 

normalizing  temperature 
with  alternating  reference 
levels 

STATE 

STATE 

WORKSP 

TOQ 

real 

similar  to  TO  but  for 
vectorization 

STATE 

STATE 

WORKSP 

TOTDX 

real 

total  zonal  span  of  ocean 
boxes 

STEP 

STEP 

local 

variable 

TOTDZ 

real 

total  vertical  span  of  ocean 
boxes 

STEP 

STEP 

local 

variable 

TP 

real 

similar  to  T  but  in  row  J  +  1 

STEP 

STEP, 

TRACER, 

CLINIC 

WORKSP 

TQ 

real 

normalized  temperature 

STATE 

STATE 

local 

variable 

TSLAB 

real 

array  of  entire  N  slab; 
equivalenced  to  T  in  CSU 
STEP 

STEP 

STEP 

local 

variable 

TSPROF 

namelist 

NAMELIST  data  file  for 
initial  tracers 

OCEAN 

OCEAN 

local 

variable 

TSTEPS 

namelist 

NAMELIST  data  file  for 
timestep  lengths 

OCEAN 

OCEAN 

local 

variable 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

TTDAY 

real 

current  day  of  the  year 
number 

TTDTOT 

real 

array  of  integrals  on  tracers 

TTN 

real 

northward  transport  of 
tracers 

TTSEC 

real 

current  total  elapsed  time  in 
seconds 

TTYEAR 

real 

number  of  years  of 
integration  completed 

TVAR 

real 

change  of  variance  of  tracers 

TX 

real 

temperature  in  CSU 

STATE;  temporary  array 
in  CSU  STRESSUP 

U 

real 

zonal  component  of  velocity 

UA 

real 

similar  to  U  but  for  times tep 
after  present 

UB 

real 

similar  to  U  but  for  timestep 
before  present 

UBM 

real 

similar  to  UB  but  in  row 

J-  1 

UBP 

real 

similar  to  UB  but  in  row 

J+  1 

UCLIN 

real 

array  of  internal  mode 
component  of  U  at  row 

7+1 

UDIF 

real 

vertical  mixing  computation 
array  for  U 

UENG 

real 

individual  forcing  terms 
on  U 

UICE 

real 

ice-drift  velocity  of  three 
timesteps  computed  by  the 
ice  model 

UICEC 

real 

immediate  ice-drift  velocity 
computed  by  the  ice  model 

UM 

real 

similar  to  U  but  in  row 

J-  1 

CSU  CSU 

DEFINED  IN  USED  IN 


TRACER,  STEP 
STEP 


CLINIC 


TRACER  TRACER 


STATE,  STATE, 

STRESSUP  STRESSUP 


TRACER, 

STEP, 

CLINIC 


CLINIC 


CLINIC 


CLINIC 


CLINIC 


CLINIC 


CLINIC 


STEP, 

CLINIC 


STEP, 

CLINIC 


CLINIC 


OCEAN 


OCEAN 


COMMON 

BLOCK 


local 

variable 


FULLWD 


local 

variable 


FULLWD 


local 

variable 


FULLWD 


local 

variable 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


STRESSUP 

TSTOP 

not  used 

TSTOP 

CLINIC, 

TRACER 

WORKSP 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

UOVER 

real 

positioned  in  common  to  be 
equivalent  of  UDIF  with  K 
index  equal  to  0;  used  to  set 
surface  boundary  conditions 

CLINIC 

CLINIC 

WORKSP 

UP 

real 

U  in  row  7+1 

STEP, 

CLINIC 

STEP, 

CLINIC 

WORKSP 

USAV 

real 

array  of  internal  mode 
component  of  U  at  row  7 

CLINIC 

CLINIC 

WORKSP 

UUNDER 

real 

positioned  in  common  to 
be  equivalent  of  UDIF 
with  K  index  equal  to 

KM  +  1 

CLINIC 

CLINIC 

WORKSP 

V 

real 

meridional  component  of 
velocity 

STEP 

TRACER, 

STEP,  CLINIC 

WORKSP 

VA 

real 

V  at  timestep  after  present 

CLINIC 

CLINIC 

WORKSP 

VB 

real 

V  at  timestep  before 
present 

STEP 

CLINIC 

WORKSP 

VBM 

real 

similar  to  VB  but  in  row 

7-  1 

STEP 

CLINIC 

WORKSP 

VBP 

real 

similar  to  VB  but  in  row 

7+  1 

STEP 

CLINIC 

WORKSP 

VBR 

real 

zonal  average  of 
horizontal  velocity 

STEP 

STEP 

local 

variable 

VBRZ 

real 

zonal/vertical  average  of 
horizontal  velocity 

STEP 

STEP 

local 

variable 

VCLIN 

real 

array  of  internal  mode 
component  of  V  at  row 

7+  1 

CLINIC, 

STEP 

CLINIC 

WORKSP 

VDIF 

real 

vertical  mixing 
computation  array  for  V 

CLINIC 

CLINIC 

WORKSP 

VENG 

real 

individual  forcing  terms 
on  V 

CLINIC 

CLINIC 

local 

variable 

VICE 

real 

ice-drift  velocity  of  three 
timesteps  computed  by  the 
ice  model 

OCEAN 

STRESSUP 

TSTOP 

VICEC 

real 

immediate  ice-drift 
velocity  computed  by  the 
ice  model 

OCEAN 

not  used 

TSTOP 

VM 

real 

V  in  row  7-1 

CLINIC 

WORKSP 

VOLUME 

real 

total  volume  of  the  model 
basin 

OCEAN 

STEP 

FULLWD 
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DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

csu 

DEFINED  IN 

CSU 

USED  IN 

VOVER 

real 

positioned  in  common  to 
be  equivalent  of  VDIF 
with  K  index  equal  0; 
used  to  set  surface 
boundary  conditions 

CLINIC 

CLINIC 

VP 

real 

V  in  row  7+1 

CLINIC 

STEP,  CLINIC 

VSAV 

real 

array  of  internal  mode 
component  of  V  at  row  7 

CLINIC 

CLINIC 

VUNDER 

real 

positioned  in  common  to 
be  equivalent  of  VDIF 
with  K  index  equal  to 

KM  +  1 

OCEAN, 

STEP 

used  only  in 
equivalence 

W 

real 

vertical  velocity; 
computed  in  vertical  line 
with  U,V  in  CLINIC; 
computed  in  vertical  line 
with  T  in  TRACER 

CLINIC, 

TRACER 

TRACER 

WINDSX 

real 

zonal  wind  velocity 

STRESSUP 

STEP, 

STRESSUP 

WINDSY 

real 

meridional  wind  velocity 

STRESSUP 

STEP, 

STRESSUP 

wsx 

real 

zonal  component  of 
surface  wind  stress 

STEP 

CLINIC, 

STEP 

WSXM 

real 

WSX  in  row  J-  1 

not  used 

not  used 

WSXP 

real 

WSX  in  row  7+1 

STEP 

not  used 

WSY 

real 

meridional  component  of 
surface  wind  stress 

STEP 

CLINIC 

- 

WSYM 

real 

WSY  in  row  J-\ 

not  used 

not  used 

WSYP 

real 

WSY  in  row  7  +  1 

STEP 

not  used 

YNEG 

real 

temporary  storage  used  to 
read  negative  ice  to  be 
melted;  heat  above  the 
freezing  temperature 
computed  by  the  ice 
model 

OCEAN 

TRACER 

ZDZ 

real 

vertical  position  of  bottom 
of  levels 

OCEAN 

OCEAN 

ZDZZ 

real 

vertical  position  of  center 
of  levels 

OCEAN 

OCEAN 

ZTD 

real 

change  of  vorticity  across 
one  timestep 

CLINIC 

TRACER 

COMMO] 

BLOCKS 


WORKSP 


TSTOP 


TSTOP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


WORKSP 


TSTOP 


ONEDIM 


ONEDIM 


Software  Test  Description  for  PIPS2.0 


145 


DATA 

ELEMENT 

DATA 

TYPE 

DESCRIPTION 

CSU 

DEFINED  IN 

CSU 

USED  IN 

COMMON 

BLOCK 

ZUN 

real 

time  change  of  vertically 
averaged  zonal  forcing  at 
north  face 

CLINIC 

CLINIC 

ONEDIM 

ZUNENG 

real 

vertical  average  of  U  forcing 
at  north  face 

CLINIC 

CLINIC 

WORKSP 

ZUS 

real 

time  change  of  vertically 
averaged  zonal  forcing  at 
south  face 

CLINIC 

CLINIC 

ONEDIM 

ZUSENG 

real 

vertical  average  of  V  forcing 
at  south  face 

CLINIC 

CLINIC 

WORKSP 

ZVN 

real 

time  change  of  vertically 
averaged  meridional 
forcing  at  north  face 

CLINIC 

CLINIC 

ONEDIM 

ZVNENG 

real 

vertical  average  of  V  forcing 
at  north  face  I 

CLINIC 

CLINIC 

WORKSP 

zvs 

real 

time  change  of  vertically 
averaged  meridional 
forcing  at  south  face 

CLINIC 

CLINIC 

ONEDIM 

ZVSENG 

real 

vertical  average  of  V 
forcing  at  south  face 

CLINIC 

CLINIC 

WORKSP 

5.0  CSCI  PIPS2.0  DATA  FILES 

This  section  describes  the  transfer  of  data  elements  between  PIPS2.0  CSCs  and  CSUs  via  data / 
disk  files. 


5.1  Data  File  to  CSU/CSC  Cross-Reference 

DATA  FILE  UNIT  #  READ  FROM:  WRITTEN  TO: 

Levitus  Temperature  10  CSU  DRIVER 

Levitus  Salinity  1 1  CSU  DRIVER 

NOGAPS  12  CSU  RFORCE 

River  Discharge  19  CSU  DRIVER 

Grid  Positions  14  CSU  DRIVER 

Land/Sea  Masks  15  CSU  BNDRY 

Ocean  Data  13  CSU  RST_OCN 

31  CSU  SAV_OCN 

Ice  Restart  Data  16  CSU  RST_ICE 

33  CSU  SAV_ICE 

Ocean  Restart  Data  18  CSU  ODAM 

34 
31 


Graphics  Data 


CSU  ODAM 
CSU  DRIVER 


146 


Preller,  Posey,  and  Croi 


5.2  CSU  ODAM  Virtual  Disk  Access  Logical  Units 

5.2.1  Logical  Unit  Number  KONTRL 

Purpose:  Logical  unit  number  KONTRL  shall  contain  the  timestep  counter,  total  elapsed  tim< 
and  area  and  volume  of  the  basin. 

Size:  The  maximum  size  of  the  file  will  be  20  words. 


File  Access  Method:  Direct  Access  (simulated  by  CSU  ODAM). 


Data  Stored  in  File  (array  BIG): 


ITT 

TTSEC 

AREA 

VOLUME 

AKNTRL(6) 

PAD(10) 


timestep  counter;  total  number  of  timesteps  completed 
total  elapsed  time  in  seconds 
area  of  the  ocean  basin 
volume  of  the  ocean  basin 

available  for  storage  of  values  that  need  to  be  saved  to  the  restart  file 
used  to  prevent  overwriting  on  I/O  in  core-contained  mode 


5.2.2  Logical  Unit  Number  KFLDS 

Purpose:  Logical  unit  number  KFLDS  shall  contain  CSCI  Ocean  two-dimensional  horizons 
fields. 

Size:  The  maximum  size  of  the  file  will  be  907,200  words. 

File  Access  Method:  Direct  Access  (simulated  by  CSU  ODAM). 

Data  Stored  in  File  (array  BIG): 

P  mass  transport  stream  function 

PB  mass  transport  stream  function  for  the  previous  timestep 

ZTD  change  of  vorticity  across  one  timestep 

HR  reciprocals  of  total  depth  at  U,V  points 

5.2.3  Logical  Unit  Numbers  LABS(13),  LABS(14),  LABS(15) 

Purpose:  Logical  unit  numbers  LABS(13),  LABS(14),  and  LABS(15)  contains  the  primary  sla 
data  for  the  N-  1,  N,  and  N  +  1  timesteps,  respectively. 

Size:  The  maximum  size  of  each  file  will  be  22,320  words. 

File  Access  Method:  Direct  Access  (simulated  by  CSU  ODAM). 

Data  Stored  in  File  (array  BIG): 

Both  primary  slab  data  and  slab  incidental  data  are  stored  in  these  files.  The  primary  slab  da 
includes  tracer  data  and  U  and  V  components  of  horizontal  velocity.  The  slab  incidental  data  includ< 
the  number  of  vertical  levels  of  the  ocean  at  T  and  U,V  points  and  the  wind  stress  data.  Prima: 
slab  data  is  three-dimensional  with  meridional,  zonal,  and  vertical  dimensions.  Base  arrays  T,  1 
and  V  contain  primary  slab  data.  Slab  incidental  data  is  two-dimensional  with  meridional  and  zon 
dimensions.  FKMTP,  FKMUP,  WSX,  and  WSY  are  arrays  of  slab  incidental  data.  Because  of  tl 
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Table  5.2.3-1  — Six-Step  Cycle  Summarizes  the  Permuting 
Disk  Units  Execute 


UNIT 

NUMBER 

TIMESTEP  NUMBER 

1 

2 

3 

4 

5 

6  ; 

13 

N-  1,  A 

7V+  1,  B 

N,  B 

N-  1,  B 

N  +  1,  A 

N,  A 

14 

N,  B 

N-  1,  B 

N+  1,  A 

V,  A 

N-  1,  A 

N+  1,  B 

15 

N+  1,  A 

N,  A 

N-  1,  A 

N+  1,  B 

N,  B 

N-  1,  B 

permuting  disk  I/O  used  to  handle  the  data,  the  meridional  or  row  dimension  of  the  arrays  is  limited 
to  three. 


On  timestep  1  and  every  sixth  timestep,  logical  units  13,  14,  and  15  contain  the  following  data: 


Logical  Unit  13: 
TBP 
UBP 
VBP 
FKMUP 
WSYP 


tracer  data  for  N-  1  timestep  for  row  7+1 

zonal  component  of  horizontal  velocity  for  N  -  1  timestep  for  row  7+1 
meridional  component  of  horizontal  velocity  for  N-  1  timestep  for  row  7+1 
number  of  vertical  levels  of  ocean  at  U,V  points  for  row  7+1 
meridional  component  of  surface  wind  stress  for  row  7  +  1 


Logical  Unit  14: 
TP 
UP 
VP 

FKMTP 

WSXP 


tracer  data  for  N  timestep  for  row  7+1 

zonal  component  of  horizontal  velocity  for  N  timestep  for  row  7+1 
meridional  component  of  horizontal  velocity  for  N  timestep  for  row  7+1 
number  of  vertical  levels  of  ocean  at  U,V  points  for  row  7+1 
zonal  component  of  surface  wind  stress  for  row  7+1 


Logical  Unit  15: 
TA 
UA 
VA 
BCON 


tracer  data  for  N  +  1  timestep 

zonal  component  of  horizontal  velocity  for  N  +  1  timestep 

meridional  component  of  horizontal  velocity  for  N  +  1  timestep 

used  to  write  out  FKMU  and  WSY  on  odd  timestep,  FKMT  and  WSX  on 

even  timestep 


Table  5.2.3- 1  summarizes  the  6-step  cycle  that  the  permuting  disk  units  execute.  In  this  table, 
N-  1,  N,  and  N  +  1  denote  primary  slab  data  for  the  N-  1  (timestep  before  present),  N  (present), 
and  N+  1  (timestep  after  present)  timesteps.  Slab  incidental  data  is  denoted  by  A  and  B.  FKMU 
and  WSY  are  A  type  arrays  and  FKMT  and  WSX  are  B  type  arrays.  On  even  timesteps,  the  A  and 
B  type  data  are  read  into  incorrect  arrays  and  must  be  switched. 


6.0  ABBREVIATIONS  AND  ACRONYMS 


CSCI 

CSC 

csu 

NOGAPS 

NRL 


Computer  Software  Configuration  Item 
Computer  Software  Component 
Computer  Software  Unit 

Navy  Operational  Global  Atmospheric  Prediction  System 
Naval  Research  Laboratory 
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Preller,  Posey,  and  Crou 


ODAM  Ocean  Direct  Access  Manager 

PIPS2.0  Polar  Ice  Prediction  System  Version  2.0 

SDD  Software  Design  Document 


7.0  SUMMARY  AND  CONCLUSION 

Since  1987,  FNMOC  has  been  running  sea-ice  forecasting  systems  in  various  regions  of  Navj 
interest  (Central  Arctic,  the  Barents  Sea,  and  the  Greenland  Sea).  The  Polar  Ice  Prediction  Systen 
(PIPS1.1)  predicts  sea  ice  conditions  in  the  Arctic  basin,  the  Barents  Sea,  and  the  Greenland  Se< 
at  a  resolution  of  127  km.  Two  regional  sea-ice  forecasting  systems,  the  Polar  Ice  Predictioi 
System-Barents  (RPIPS-B)  and  the  Polar  Ice  Prediction  System-Greenland  Sea  (RPIPS-G),  alst 
predict  sea  ice  conditions  in  the  Barents  Sea  and  the  Greenland  Sea,  respectively,  at  a  highe: 
resolution  of  20-25  km.  In  1995,  NRL  delivered  to  FNMOC  a  coupled  ice-ocean  system,  PIPS2.0 
which  predicts  sea  ice  conditions  for  most  of  the  ice-covered  regions  in  the  Northern  Hemisphere 
PIPS2.0  will  replace  the  existing  three  operational  forecast  systems  when  it  completes  the  fina 
operational  testing  phase  at  FNMOC.  PIPS2.0  uses  as  its  basis  the  Hibler  ice  model  and  the  Coj 
ocean  model.  PIPS2.0  has  a  resolution  of  approximately  a  quarter  of  a  degree,  which  is  similar  t<j 
the  resolution  of  the  operational  regional  systems  (RPIPS-B  and  RPIPS-G).  I 
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